loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.132, 2004/02/19 21:49:33	version 1.134, 2004/02/23 20:57:50
Line 459 sub make_numerical_bubbles {	Line 459 sub make_numerical_bubbles {
@bubble_values=sort {$a <=> $b} (@bubble_values,$answer);	@bubble_values=sort {$a <=> $b} (@bubble_values,$answer);
&Apache::lonxml::debug("Answer was :$answer: returning :".$#bubble_values.": whih are :".join(':',@bubble_values));	&Apache::lonxml::debug("Answer was :$answer: returning :".$#bubble_values.": whih are :".join(':',@bubble_values));
&Math::Random::random_set_seed(@oldseed);	&Math::Random::random_set_seed(@oldseed);
	if (defined($format) && $format ne '') {
	foreach my $value (@bubble_values) {
	$value=&format_number($value,$format,$target);
	}
	}
return @bubble_values;	return @bubble_values;
}	}
if (defined($$incorrect[0]) &&	if (defined($$incorrect[0]) &&
Line 514 sub get_sigrange {	Line 519 sub get_sigrange {
}	}
if (!$sig_ubound) { $sig_ubound=$sig_lbound; }	if (!$sig_ubound) { $sig_ubound=$sig_lbound; }
}	}
	if (($sig_ubound<$sig_lbound) \|\|
	($sig_lbound > 15) \|\|
	($sig =~/(\+\|-)/ ) ) {
	my $errormsg=&mt("Invalid Significant figures detected")." ($sig)";
	if ($ENV{'request.state'} eq 'construct') {
	$errormsg.=
	&Apache::loncommon::help_open_topic('Significant_Figures');
	}
	&Apache::lonxml::error($errormsg);
	}
return ($sig_ubound,$sig_lbound);	return ($sig_ubound,$sig_lbound);
}	}