--- loncom/homework/caparesponse/caparesponse.pm	2006/06/13 14:58:14	1.190
+++ loncom/homework/caparesponse/caparesponse.pm	2006/07/03 14:21:45	1.193
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.190 2006/06/13 14:58:14 albertel Exp $
+# $Id: caparesponse.pm,v 1.193 2006/07/03 14:21:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,7 +35,7 @@ use Apache::lonlocal;
 use Apache::lonnet;
 
 BEGIN {
-    &Apache::lonxml::register('Apache::caparesponse',('caparesponse','numericalresponse','stringresponse','formularesponse','mathresponse'));
+    &Apache::lonxml::register('Apache::caparesponse',('caparesponse','numericalresponse','stringresponse','formularesponse'));
 }
 
 my %answer;
@@ -249,9 +249,11 @@ sub check_submission {
     }
     
     if ($tag eq 'formularesponse') {
-	$$args_ref{'type'}='fml';
-    } elsif ($tag eq 'mathresponse') {
-        $$args_ref{'type'}='math';
+#	if ($$args_ref{'samples'}) {
+	    $$args_ref{'type'}='fml';
+#	} else {
+#	    $$args_ref{'type'}='math';
+#	}
     } elsif ($tag eq 'numericalresponse') {
 	$$args_ref{'type'}='float';
     }
@@ -929,23 +931,6 @@ sub end_formularesponse {
     return end_numericalresponse(@_);
 }
 
-sub start_mathresponse {
-    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-    my $result;
-    if ($target eq 'meta') {
-        &Apache::response::start_response($parstack,$safeeval);
-        $result=&Apache::response::meta_package_write('mathresponse');
-        &Apache::response::end_response();
-    } else {
-        $result.=&start_numericalresponse(@_);
-    }
-    return $result;
-}
-
-sub end_mathresponse {
-    return end_numericalresponse(@_);
-}
-
 1;
 __END__