loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.47, 2001/12/04 15:17:57	version 1.48, 2001/12/07 23:59:08
Line 149 sub end_numericalresponse {	Line 149 sub end_numericalresponse {
$result = &Apache::run::run($expression,$safeeval);	$result = &Apache::run::run($expression,$safeeval);
my ($awards) = split /:/ , $result;	my ($awards) = split /:/ , $result;
my ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards);	my ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards);
if ( $previous{'used'} && ($previous{'award'} eq $ad) ) {	&Apache::response::handle_previous(\%previous,$ad);
if ($previous{'last'}) {
push(@Apache::inputtags::previous,'PREVIOUSLY_LAST');
} else {
push(@Apache::inputtags::previous,'PREVIOUSLY_USED');
}
}
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad;	$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad;
&Apache::lonxml::debug("$expression");	&Apache::lonxml::debug("$expression");
&Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");	&Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");