|
version 1.51, 2002/10/17 14:30:40
|
version 1.52, 2002/10/17 14:40:05
|
|
Line 426 sub bubbles {
|
Line 426 sub bubbles {
|
| my $current_length = 0; |
my $current_length = 0; |
| for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
| $current_length += (length($opt[$ind])+length($alphabet[$ind])+2)*2; |
$current_length += (length($opt[$ind])+length($alphabet[$ind])+2)*2; |
| if ($current_length<80 and $ind!=$number_of_bubbles) { |
if ($current_length<0.9*$ENV{'form.textwidth'} 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'; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to optionresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework