loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.72, 2002/11/13 23:37:56	version 1.73, 2002/11/25 21:36:42
Line 113 sub start_numericalresponse {	Line 113 sub start_numericalresponse {
}	}
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {
$result=&Apache::response::meta_package_write('numericalresponse');	$result=&Apache::response::meta_package_write('numericalresponse');
	} elsif ($target eq 'answer' \|\| $target eq 'grade') {
	&Apache::response::reset_params();
}	}
return $result;	return $result;
}	}
Line 358 sub end_numericalresponse {	Line 360 sub end_numericalresponse {
}	}
}	}
if ($target eq 'answer') {	if ($target eq 'answer') {
if ($high) { $ans.=' ['.$low.','.$high.'] '; }	if ($high) { $ans.=' ['.$low.','.$high.']'; }
if ($sighigh) { $ans.= "Sig <i>$siglow - $sighigh</i>"; }	if ($sighigh) { $ans.= " Sig <i>$siglow - $sighigh</i>"; }
$result.=&Apache::response::answer_part($$tagstack[-1],$ans);	$result.=&Apache::response::answer_part($$tagstack[-1],$ans);
} elsif ($target eq 'analyze') {	} elsif ($target eq 'analyze') {
push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} },	push (@{ $Apache::lonhomework::analyze{"$part_id.answer"} },