[BACK]Return to optionresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/optionresponse.pm between versions 1.114 and 1.118

version 1.114, 2004/07/12 16:19:48 version 1.118, 2004/08/25 19:38:58
Line 453  sub optionlist_correction { Line 453  sub optionlist_correction {
     if ($TeXlayout eq 'vertical') {      if ($TeXlayout eq 'vertical') {
  $texoptionlist.=' \vskip 0 mm ',   $texoptionlist.=' \vskip 0 mm ',
     } else {      } else {
  $texoptionlist.=',';   $texoptionlist.=', ';
     }      }
  }   }
  chop($texoptionlist);   $texoptionlist=~s/, $//;
  if ($TeXlayout ne 'vertical') {$texoptionlist.='.';}   if ($TeXlayout ne 'vertical') {$texoptionlist.='.';}
     } else {      } else {
  if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';}   if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';}
Line 491  sub webbubbles { Line 491  sub webbubbles {
   
   
 sub bubbles {  sub bubbles {
     my ($ralphabit,$ropt) = @_;      my ($ralphabit,$ropt,$responce) = @_;
     my @alphabet = @$ralphabit;      my @alphabet = @$ralphabit;
     my @opt = @$ropt;      my @opt = @$ropt;
     my ($result,$head,$line) =('','','');      my ($result,$head,$line) =('','','');
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 ($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) {
Line 649  sub end_foil { Line 650  sub end_foil {
   
 sub start_drawoptionlist {  sub start_drawoptionlist {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     return $token->[4];      if ($target ne 'meta') {
    return $token->[4];
       }
 }  }
   
 sub end_drawoptionlist {  sub end_drawoptionlist {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     return $token->[2];      if ($target ne 'meta') {
    return $token->[2];
       }
 }  }
   
 sub insert_foil {  sub insert_foil {
Removed from v.1.114  
changed lines
  Added in v.1.118

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>