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); |
} |
} |
|
|