loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.178, 2005/08/17 16:37:11	version 1.179, 2005/08/29 18:36:03
Line 700 sub end_stringresponse {	Line 700 sub end_stringresponse {
# $answer=$token->[2]->{'answer'};	# $answer=$token->[2]->{'answer'};
# }	# }
${$safeeval->varglob('LONCAPA::response')}=$response;	${$safeeval->varglob('LONCAPA::response')}=$response;
$result = &Apache::run::run('return $LONCAPA::response=~m'.$answer,$safeeval);	$result = &Apache::run::run('if ($LONCAPA::response=~m'.$answer.') { return 1; } else { return 0; }',$safeeval);
&Apache::lonxml::debug("current $response");	&Apache::lonxml::debug("current $response");
&Apache::lonxml::debug("current $answer");	&Apache::lonxml::debug("current $answer");
$ad = ($result) ? 'APPROX_ANS' : 'INCORRECT';	$ad = ($result) ? 'APPROX_ANS' : 'INCORRECT';