--- loncom/homework/optionresponse.pm 2004/07/29 19:40:23 1.116 +++ loncom/homework/optionresponse.pm 2004/08/25 20:00:31 1.119 @@ -1,7 +1,7 @@ # LearningOnline Network with CAPA # option list style responses # -# $Id: optionresponse.pm,v 1.116 2004/07/29 19:40:23 albertel Exp $ +# $Id: optionresponse.pm,v 1.119 2004/08/25 20:00:31 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -491,8 +491,8 @@ sub webbubbles { sub bubbles { - my ($ralphabit,$ropt) = @_; - my @alphabet = @$ralphabit; + my ($ralphabet,$ropt,$response) = @_; + my @alphabet = @$ralphabet; my @opt = @$ropt; my ($result,$head,$line) =('','',''); my $number_of_bubbles = $#opt + 1; @@ -508,6 +508,7 @@ sub bubbles { for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { my $leftmargin; $opt[$ind]=&Apache::lonxml::latex_special_symbols($opt[$ind]); + if ($response eq 'rankresponse') {$opt[$ind]='Rank '.$opt[$ind];} if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} $current_length += (length($opt[$ind])+length($alphabet[$ind])+4)*2; if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) { @@ -649,12 +650,16 @@ sub end_foil { sub start_drawoptionlist { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - return $token->[4]; + if ($target ne 'meta') { + return $token->[4]; + } } sub end_drawoptionlist { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - return $token->[2]; + if ($target ne 'meta') { + return $token->[2]; + } } sub insert_foil {