loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.135, 2004/02/26 16:36:48	version 1.136, 2004/02/26 21:13:54
Line 410 sub get_table_sizes {	Line 410 sub get_table_sizes {
push @table_range,($number_of_bubbles % $bubbles_per_line);	push @table_range,($number_of_bubbles % $bubbles_per_line);
}	}
$cell_width-=8;	$cell_width-=8;
	$cell_width=$cell_width*3/4;
return ($cell_width,$number_of_tables,@table_range);	return ($cell_width,$number_of_tables,@table_range);
}	}

Line 460 sub make_numerical_bubbles {	Line 461 sub make_numerical_bubbles {
&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 '') {	if (defined($format) && $format ne '') {
foreach my $value (@bubble_values) {	for(my $i=0;$i<=$#bubble_values;$i++) {
$value=&format_number($value,$format,$target);	$bubble_values[$i]=&format_number($bubble_values[$i],$format,$target);
}	}
}	}
return @bubble_values;	return @bubble_values;