loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

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];