loncom/homework/hint.pm - diff

Return to hint.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.30, 2002/10/28 23:31:48	version 1.32, 2002/11/13 23:37:56
Line 131 sub end_numericalhint {	Line 131 sub end_numericalhint {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'web') {	if ($target eq 'web') {
	if (!$Apache::lonxml::default_homework_loaded) {
	&Apache::lonxml::default_homework_load($safeeval);
	}
$safeeval->share_from('capa',['&caparesponse_capa_check_answer']);	$safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
&Apache::response::setup_params('numericalhint');	&Apache::response::setup_params('numericalhint');
Line 338 sub start_radiobuttonhint {	Line 341 sub start_radiobuttonhint {
return $result;	return $result;
}	}

sp;&end_radiobuttonhint {	sub end_radiobuttonhint {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result;	my $result;
if ($target eq 'web') {	if ($target eq 'web') {