loncom/homework/hint.pm - diff

Return to hint.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.6, 2001/01/22 19:58:09	version 1.8, 2001/02/19 20:32:36
Line 27 sub start_hintgroup {	Line 27 sub start_hintgroup {
if ($target eq 'web') {$result='<table bgcolor="#dddddd"><tr><td>';}	if ($target eq 'web') {$result='<table bgcolor="#dddddd"><tr><td>';}
}	}
}	}
if ($skiptoend) {	if ($skiptoend && $target ne 'meta') {
&Apache::lonxml::get_all_text("/hintgroup",$$parser[$#$parser]);	&Apache::lonxml::get_all_text("/hintgroup",$$parser[$#$parser]);
}	}
@Apache::hint::which=();	@Apache::hint::which=();
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'}.'"'.