version 1.114, 2003/09/22 20:49:01
|
version 1.115, 2003/10/14 22:53:22
|
Line 114 sub end_numericalresponse {
|
Line 114 sub end_numericalresponse {
|
if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |
my $ad; |
my $ad; |
my %previous = &Apache::response::check_for_previous($response,$partid,$id); |
my %previous = &Apache::response::check_for_previous($response,$partid,$id); |
$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; |
|
&Apache::lonxml::debug("submitted a $response<br>\n"); |
&Apache::lonxml::debug("submitted a $response<br>\n"); |
&Apache::lonxml::debug($$parstack[-1] . "\n<br>"); |
&Apache::lonxml::debug($$parstack[-1] . "\n<br>"); |
|
|
Line 131 sub end_numericalresponse {
|
Line 130 sub end_numericalresponse {
|
$response =~ s/\\/\\\\/g; |
$response =~ s/\\/\\\\/g; |
$response =~ s/\'/\\\'/g; |
$response =~ s/\'/\\\'/g; |
} |
} |
|
$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; |
&Apache::lonxml::debug("current $response"); |
&Apache::lonxml::debug("current $response"); |
my $expression="&caparesponse_check_list('".$response."','". |
my $expression="&caparesponse_check_list('".$response."','". |
$$parstack[-1]; |
$$parstack[-1]; |