loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.137, 2004/02/26 21:25:28	version 1.138, 2004/03/02 16:09:42
Line 382 sub get_table_sizes {	Line 382 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)(E\|e)(\+\|-)?(\d*)/) {	if ($member=~/(\+\|-)?(\d)\.?(\d)\s\$\\times\s10\^{(\+\|-)?(\d+)}\$/) {
	$cell_width_real=(length($2)+length($3)+length($5)+7)*$scale;
	} 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;
} elsif ($member=~/(\d)\.(\d)/) {	} elsif ($member=~/(\d)\.(\d)/) {
$cell_width_real=(length($1)+length($2)+3)*$scale;	$cell_width_real=(length($1)+length($2)+3)*$scale;
} else {	} else {
$cell_width_real=(length($member)+1)*$scale;	$cell_width_real=(length($member)+1)$scale0.9;
}	}
if ($cell_width_real>$cell_width) {$cell_width=$cell_width_real;}	if ($cell_width_real>$cell_width) {$cell_width=$cell_width_real;}
}	}