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.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;}
}	}
Line 410 sub get_table_sizes {	Line 412 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);
}	}