version 1.101, 2004/02/19 19:06:35
|
version 1.102, 2004/02/19 21:55:54
|
Line 460 sub bubbles {
|
Line 460 sub bubbles {
|
$ENV{'form.textwidth'}=~/(\d+)/; |
$ENV{'form.textwidth'}=~/(\d+)/; |
$textwidth=$1; |
$textwidth=$1; |
} else { |
} else { |
$ENV{'textwidth'}=~/(\d+)/; |
$ENV{'textwidth'}=~/(\d*)\.?(\d*)/; |
$textwidth=$1; |
$textwidth=$1.'.'.$2; |
} |
} |
for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
my $leftmargin; |
my $leftmargin; |
$opt[$ind]=&Apache::lonxml::latex_special_symbols($opt[$ind]); |
$opt[$ind]=&Apache::lonxml::latex_special_symbols($opt[$ind]); |
if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} |
if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} |
$current_length += (length($opt[$ind])+length($alphabet[$ind])+3)*2; |
$current_length += (length($opt[$ind])+length($alphabet[$ind])+4)*2; |
if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) { |
if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) { |
$line.='\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & '; |
$line.='\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & '; |
$head.='lr'; |
$head.='lr'; |