--- loncom/homework/caparesponse/caparesponse.pm 2003/09/22 20:49:01 1.114
+++ loncom/homework/caparesponse/caparesponse.pm 2003/10/15 19:40:43 1.116
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# caparesponse definition
#
-# $Id: caparesponse.pm,v 1.114 2003/09/22 20:49:01 albertel Exp $
+# $Id: caparesponse.pm,v 1.116 2003/10/15 19:40:43 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -114,7 +114,6 @@ sub end_numericalresponse {
if ( $response =~ /[^\s]/) {
my $ad;
my %previous = &Apache::response::check_for_previous($response,$partid,$id);
- $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
&Apache::lonxml::debug("submitted a $response
\n");
&Apache::lonxml::debug($$parstack[-1] . "\n
");
@@ -131,6 +130,7 @@ sub end_numericalresponse {
$response =~ s/\\/\\\\/g;
$response =~ s/\'/\\\'/g;
}
+ $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response;
&Apache::lonxml::debug("current $response");
my $expression="&caparesponse_check_list('".$response."','".
$$parstack[-1];
@@ -220,11 +220,16 @@ sub end_numericalresponse {
if ($$tagstack[-1] eq 'numericalresponse') {
if ($unit=~/\S/) {$result.=' (in '.$unit.')
';}
$result.= '
'. - $alphabet[$ind].': '. - $bubble_values[$ind].' | '; + '" value="'.$bubble_values[$ind].'" '.$checked + .' />'.$alphabet[$ind].': '. + $bubble_values[$ind].''; } $result.='