loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.251, 2012/02/10 00:25:53	version 1.252, 2012/03/05 11:50:39
Line 970 sub make_numerical_bubbles {	Line 970 sub make_numerical_bubbles {
my $number_of_bubbles =	my $number_of_bubbles =
&Apache::response::get_response_param($part.'_'.$id,'numbubbles',8);	&Apache::response::get_response_param($part.'_'.$id,'numbubbles',8);

	#
	# Fixes for BZ 6519 - number of bubbles <= 0 or non-integer.
	#
	$number_of_bubbles = int($number_of_bubbles + 0.5);
	if ($number_of_bubbles <= 0) {
	$number_of_bubbles = 8;
	}


my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);	my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);
my $name = (exists($answer{$tag_internal_answer_name})	my $name = (exists($answer{$tag_internal_answer_name})
? $tag_internal_answer_name	? $tag_internal_answer_name