loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.133, 2004/02/20 18:04:43	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]) &&