Diff for /loncom/homework/optionresponse.pm between versions 1.51 and 1.55

version 1.51, 2002/10/17 14:30:40 version 1.55, 2002/10/25 18:42:59
Line 321  sub displayfoils { Line 321  sub displayfoils {
   $result .=$Apache::response::foilgroup{$name.'.value'}.    $result .=$Apache::response::foilgroup{$name.'.value'}.
       ":".$Apache::response::foilgroup{$name.'.text'}."\n";        ":".$Apache::response::foilgroup{$name.'.text'}."\n";
       } else {        } else {
    $result .='\item '.$Apache::response::foilgroup{$name.'.value'}.    $Apache::response::foilgroup{$name.'.text'}=~s/\\item//;
      $result .='\item \textit{'.$Apache::response::foilgroup{$name.'.value'}.'}'.
       ":".$Apache::response::foilgroup{$name.'.text'}."\n";        ":".$Apache::response::foilgroup{$name.'.text'}."\n";
       }        }
     }      }
Line 426  sub bubbles { Line 427  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 {
Line 438  sub bubbles { Line 439  sub bubbles {
  }   }
   
     }      }
     $Apache::lonxml::counter++;      &Apache::lonxml::increment_counter();
     my %moreenv;  
     $moreenv{'form.counter'}=$Apache::lonxml::counter;  
     &Apache::lonnet::appenv(%moreenv);  
     return $result;      return $result;
 }  }
   

Removed from v.1.51  
changed lines
  Added in v.1.55


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