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

Diff for /loncom/homework/optionresponse.pm between versions 1.79 and 1.80

version 1.79, 2003/07/01 20:12:55 version 1.80, 2003/07/25 18:46:19
Line 152  sub end_foilgroup { Line 152  sub end_foilgroup {
       
   my $result;    my $result;
   if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') {    if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') {
       my $tex_option_switch=&Apache::lonxml::get_param('texout',$parstack,$safeeval);
     my $name;      my $name;
     my @opt;      my @opt;
     eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval);      eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval);
       if ($target eq 'tex' && $tex_option_switch eq 'nooptions') {@opt=();}
     &Apache::lonxml::debug("Options are $#opt");      &Apache::lonxml::debug("Options are $#opt");
     my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');      my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
     my $randomize = &Apache::lonxml::get_param('randomize',$parstack,      my $randomize = &Apache::lonxml::get_param('randomize',$parstack,
Line 434  sub displayfoils { Line 436  sub displayfoils {
 sub optionlist_correction {  sub optionlist_correction {
   
     my $texoptionlist = shift;      my $texoptionlist = shift;
     $texoptionlist =~ s/<option><\/option>/\\item \[\] Possible answers are:/;      if ($texoptionlist=~/<option selected/) {
     $texoptionlist =~ s/<option>/\{\\bf /g;   $texoptionlist =~ s/<option><\/option>/\\item \[\] Possible answers are:/;
     $texoptionlist =~ s/<option selected="on">/\{\\bf /g;   $texoptionlist =~ s/<option>/\{\\bf /g;
     $texoptionlist =~ s/<\/option>/\},/g;   $texoptionlist =~ s/<option selected="on">/\{\\bf /g;
     $texoptionlist =~ s/,$/\./g;   $texoptionlist =~ s/<\/option>/\},/g;
     $texoptionlist =~ s/>/\$>\$/g;   $texoptionlist =~ s/,$/\./g;
     $texoptionlist =~ s/</\$<\$/g;   $texoptionlist =~ s/>/\$>\$/g;
     $texoptionlist =~ s/=/\$=\$/g;   $texoptionlist =~ s/</\$<\$/g;
     $texoptionlist =~ s/\^(\d+)/<m>\$$1\$<\/m>/g;   $texoptionlist =~ s/=/\$=\$/g;
    $texoptionlist =~ s/\^(\d+)/<m>\$$1\$<\/m>/g;
       } else {
    $texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;
       }
     return $texoptionlist;      return $texoptionlist;
 }  }
   
Removed from v.1.79  
changed lines
  Added in v.1.80

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