loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.159, 2005/01/08 06:10:38	version 1.160, 2005/01/10 18:42:21
Line 401 sub get_table_sizes {	Line 401 sub get_table_sizes {
my $cell_width=0;	my $cell_width=0;
foreach my $member (@$rbubble_values) {	foreach my $member (@$rbubble_values) {
my $cell_width_real=0;	my $cell_width_real=0;
if ($member=~/(\+\|-)?(\d)\.?(\d)\s\$\\times\s10\^{(\+\|-)?(\d+)}\$/) {	if ($member=~/(\+\|-)?(\d)\.?(\d)\s\$?\\times\s10\^{(\+\|-)?(\d+)}\$?/) {
$cell_width_real=(length($2)+length($3)+length($5)+7)*$scale;	$cell_width_real=(length($2)+length($3)+length($5)+7)*$scale;
} elsif ($member=~/(\d)\.?(\d)(E\|e)(\+\|-)?(\d*)/) {	} elsif ($member=~/(\d)\.?(\d)(E\|e)(\+\|-)?(\d*)/) {
$cell_width_real=(length($1)+length($2)+length($5)+9)*$scale;	$cell_width_real=(length($1)+length($2)+length($5)+9)*$scale;