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

Diff for /loncom/homework/optionresponse.pm between versions 1.44 and 1.45

version 1.44, 2002/07/29 20:43:47 version 1.45, 2002/08/05 15:55:39
Line 273  sub displayfoils { Line 273  sub displayfoils {
   my @falselist;    my @falselist;
   my $result;    my $result;
   my $name;    my $name;
   $Apache::optionresponse::displayoptionintex=0;    my $displayoptionintex=0;
   my @whichopt = &whichfoils($max);    my @whichopt = &whichfoils($max);
   my $part=$Apache::inputtags::part;    my $part=$Apache::inputtags::part;
   my $id=$Apache::inputtags::response[-1];    my $id=$Apache::inputtags::response[-1];
Line 305  sub displayfoils { Line 305  sub displayfoils {
   ."</select>\n".$Apache::response::foilgroup{$name.'.text'}."\n";    ."</select>\n".$Apache::response::foilgroup{$name.'.text'}."\n";
   $temp++;    $temp++;
       } else {        } else {
   if ($Apache::optionresponse::displayoptionintex == 0) {    if ($displayoptionintex == 0) {
               my $durtyoptionlist = $optionlist;                my $texoptionlist = $optionlist;
       $durtyoptionlist =~ s/<option><\/option>/\\item \[\] The possible answers are:/;        $texoptionlist =~ s/<option><\/option>/\\item \[\] The possible answers are:/;
       $durtyoptionlist =~ s/<option>/{\\bf /g;        $texoptionlist =~ s/<option>/{\\bf /g;
       $durtyoptionlist =~ s/<\/option>/},/g;        $texoptionlist =~ s/<\/option>/},/g;
       $durtyoptionlist =~ s/,$/\./g;        $texoptionlist =~ s/,$/\./g;
       $durtyoptionlist =~ s/>/\$>\$/g;        $texoptionlist =~ s/>/\$>\$/g;
       $durtyoptionlist =~ s/</\$<\$/g;        $texoptionlist =~ s/</\$<\$/g;
       $durtyoptionlist =~ s/=/\$=\$/g;        $texoptionlist =~ s/=/\$=\$/g;
       $result.= $durtyoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'};        $result.= $texoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'};
       $Apache::optionresponse::displayoptionintex=1;        $displayoptionintex=1;
   } else {    } else {
       $result.= '\item '.$Apache::response::foilgroup{$name.'.text'};        $result.= '\item '.$Apache::response::foilgroup{$name.'.text'};
   }    }
Removed from v.1.44  
changed lines
  Added in v.1.45

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