loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.80, 2003/02/27 22:20:40	version 1.82, 2003/03/13 16:20:47
Line 215 sub end_numericalresponse {	Line 215 sub end_numericalresponse {
my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);	my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);
my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);	my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);
my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);	my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);
	if (defined $unit and $Apache::lonhomework::type eq 'exam') {
	$result.=' \textit{(in} \verb\|'.$unit.'\|\textit{)} ';
	}
my $number_of_bubbles = 8; #default values for number of bubbles	my $number_of_bubbles = 8; #default values for number of bubbles
my @bubbles_values = ();	my @bubbles_values = ();
my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors	my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors