loncom/homework/hint.pm - diff

Return to hint.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.7, 2001/02/07 00:27:32	version 1.8, 2001/02/19 20:32:36
Line 66 sub end_numericalhint {	Line 66 sub end_numericalhint {
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);	my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
my $response = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"};	my $response = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"};
&Apache::lonxml::debug("hintgroup is using $response<br>\n");	&Apache::lonxml::debug("hintgroup is using $response<br />\n");
my $expression="&caparesponse_check_list('".$response."','".	my $expression="&caparesponse_check_list('".$response."','".
$$parstack[$#$parstack].	$$parstack[$#$parstack].
';my $tol="'.$Apache::inputtags::params{'tol'}.'"'.	';my $tol="'.$Apache::inputtags::params{'tol'}.'"'.