|
version 1.118, 2004/08/25 19:38:58
|
version 1.119, 2004/08/25 20:00:31
|
|
Line 491 sub webbubbles {
|
Line 491 sub webbubbles {
|
| |
|
| |
|
| sub bubbles { |
sub bubbles { |
| my ($ralphabit,$ropt,$responce) = @_; |
my ($ralphabet,$ropt,$response) = @_; |
| my @alphabet = @$ralphabit; |
my @alphabet = @$ralphabet; |
| my @opt = @$ropt; |
my @opt = @$ropt; |
| my ($result,$head,$line) =('','',''); |
my ($result,$head,$line) =('','',''); |
| my $number_of_bubbles = $#opt + 1; |
my $number_of_bubbles = $#opt + 1; |
|
Line 508 sub bubbles {
|
Line 508 sub bubbles {
|
| 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 ($responce eq 'rankresponce') {$opt[$ind]='Rank '.$opt[$ind];} |
if ($response eq 'rankresponse') {$opt[$ind]='Rank '.$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])+4)*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) { |
![[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