--- loncom/homework/caparesponse/caparesponse.pm 2002/11/13 23:37:56 1.72
+++ loncom/homework/caparesponse/caparesponse.pm 2002/11/25 21:36:42 1.73
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# caparesponse definition
#
-# $Id: caparesponse.pm,v 1.72 2002/11/13 23:37:56 albertel Exp $
+# $Id: caparesponse.pm,v 1.73 2002/11/25 21:36:42 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -113,6 +113,8 @@ sub start_numericalresponse {
}
} elsif ($target eq 'meta') {
$result=&Apache::response::meta_package_write('numericalresponse');
+ } elsif ($target eq 'answer' || $target eq 'grade') {
+ &Apache::response::reset_params();
}
return $result;
}
@@ -358,8 +360,8 @@ sub end_numericalresponse {
}
}
if ($target eq 'answer') {
- if ($high) { $ans.=' ['.$low.','.$high.'] '; }
- if ($sighigh) { $ans.= "Sig $siglow - $sighigh"; }
+ if ($high) { $ans.=' ['.$low.','.$high.']'; }
+ if ($sighigh) { $ans.= " Sig $siglow - $sighigh"; }
$result.=&Apache::response::answer_part($$tagstack[-1],$ans);
} elsif ($target eq 'analyze') {
push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} },