--- loncom/homework/caparesponse/caparesponse.pm 2003/09/23 01:52:57 1.107.2.1
+++ loncom/homework/caparesponse/caparesponse.pm 2003/10/23 19:36:02 1.107.2.4
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# caparesponse definition
#
-# $Id: caparesponse.pm,v 1.107.2.1 2003/09/23 01:52:57 albertel Exp $
+# $Id: caparesponse.pm,v 1.107.2.4 2003/10/23 19:36:02 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];
@@ -231,11 +231,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.='