loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.45, 2001/10/29 22:50:32	version 1.46, 2001/12/04 14:54:47
Line 116 sub end_numericalresponse {	Line 116 sub end_numericalresponse {
$key.'="'.$Apache::inputtags::params{$key}.'"';	$key.'="'.$Apache::inputtags::params{$key}.'"';
}	}
if ($$tagstack[-1] eq 'formularesponse') {	if ($$tagstack[-1] eq 'formularesponse') {
$expression.=';$type="fml";';	$expression.=';my $type="fml";';
	} elsif ($$tagstack[-1] eq 'numericalresponse') {
	$expression.=';my $type="float";';
}	}
$expression.="');";	$expression.="');";
$result = &Apache::run::run($expression,$safeeval);	$result = &Apache::run::run($expression,$safeeval);