--- loncom/homework/caparesponse/caparesponse.pm	2001/10/29 22:50:32	1.45
+++ loncom/homework/caparesponse/caparesponse.pm	2001/12/04 14:54:47	1.46
@@ -116,7 +116,9 @@ sub end_numericalresponse {
 	    $key.'="'.$Apache::inputtags::params{$key}.'"';
 	}
 	if ($$tagstack[-1] eq 'formularesponse') {
-	  $expression.=';$type="fml";';
+	  $expression.=';my $type="fml";';
+	} elsif ($$tagstack[-1] eq 'numericalresponse') {
+	  $expression.=';my $type="float";';
 	}
 	$expression.="');";
 	$result = &Apache::run::run($expression,$safeeval);