loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.104, 2003/06/04 15:23:08	version 1.105, 2003/06/24 20:41:56
Line 150 sub end_numericalresponse {	Line 150 sub end_numericalresponse {
$expression.=';my $type="float";';	$expression.=';my $type="float";';
}	}
$expression.="');";	$expression.="');";
	my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);
	&Apache::lonxml::debug('answer is'.join(':',@answer));
	@{$safeeval->varglob('CAPARESPONSE_CHECK_LIST_answer')}=@answer;

$result = &Apache::run::run($expression,$safeeval);	$result = &Apache::run::run($expression,$safeeval);
my ($awards) = split /:/ , $result;	my ($awards) = split /:/ , $result;
($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards);	($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards);