loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.129, 2004/02/13 15:09:52	version 1.130, 2004/02/13 21:05:34
Line 392 sub get_table_sizes {	Line 392 sub get_table_sizes {
if ($cell_width_real>$cell_width) {$cell_width=$cell_width_real;}	if ($cell_width_real>$cell_width) {$cell_width=$cell_width_real;}
}	}
$cell_width+=8;	$cell_width+=8;
$ENV{'form.textwidth'}=~/(\d+)/;	my $textwidth;
my $textwidth=$1;	if ($ENV{'form.textwidth'} ne '') {
	$ENV{'form.textwidth'}=~/(\d+)/;
	$textwidth=$1;
	} else {
	$ENV{'textwidth'}=~/(\d+)/;
	$textwidth=$1;
	}
my $bubbles_per_line=int($textwidth/$cell_width);	my $bubbles_per_line=int($textwidth/$cell_width);
my $number_of_tables = int($number_of_bubbles/$bubbles_per_line);	my $number_of_tables = int($number_of_bubbles/$bubbles_per_line);
my @table_range = ();	my @table_range = ();