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

Diff for /loncom/homework/optionresponse.pm between versions 1.60 and 1.61

version 1.60, 2002/11/11 15:58:51 version 1.61, 2002/11/11 20:13:47
Line 383  sub displayfoils { Line 383  sub displayfoils {
           $Apache::response::foilgroup{$name.'.text'}=~s/\\item/\\item[\\textbf{$Apache::lonxml::counter}\.]/;            $Apache::response::foilgroup{$name.'.text'}=~s/\\item/\\item[\\textbf{$Apache::lonxml::counter}\.]/;
         }          }
         if ($Apache::response::foilgroup{$name.'.text'}=~/<drawoptionlist\s*\/>/) {          if ($Apache::response::foilgroup{$name.'.text'}=~/<drawoptionlist\s*\/>/) {
   $texoptionlist = &texoptionlist_correction($texoptionlist);            $Apache::response::foilgroup{$name.'.text'}=~s|<drawoptionlist\s*/>| \\makebox\[0\.3in\]\[b\]\{\\hrulefill\} |;
           $Apache::response::foilgroup{$name.'.text'}=~s|<drawoptionlist\s*/>|$texoptionlist|;  
           $result.= $Apache::response::foilgroup{$name.'.text'};  
         } else {  
           $result.= $texoptionlist.$Apache::response::foilgroup{$name.'.text'};            $result.= $texoptionlist.$Apache::response::foilgroup{$name.'.text'};
         }          }
       } else {        } else {
Line 406  sub displayfoils { Line 403  sub displayfoils {
       $Apache::response::foilgroup{$name.'.text'}=~s/\\item/\\item[\\textbf{$Apache::lonxml::counter}\.]/;        $Apache::response::foilgroup{$name.'.text'}=~s/\\item/\\item[\\textbf{$Apache::lonxml::counter}\.]/;
   }    }
         if ($Apache::response::foilgroup{$name.'.text'}=~/<drawoptionlist\s*\/>/) {          if ($Apache::response::foilgroup{$name.'.text'}=~/<drawoptionlist\s*\/>/) {
   $texoptionlist = &texoptionlist_correction($texoptionlist);            $Apache::response::foilgroup{$name.'.text'}=~s|<drawoptionlist\s*/>| \\makebox\[0\.3in\]\[b\]\{\\hrulefill\} |;
           $Apache::response::foilgroup{$name.'.text'}=~s|<drawoptionlist\s*/>|$texoptionlist|;  
         }          }
  $result.= $Apache::response::foilgroup{$name.'.text'};   $result.= $Apache::response::foilgroup{$name.'.text'};
       } else {        } else {
Line 447  sub optionlist_correction { Line 443  sub optionlist_correction {
     return $texoptionlist;      return $texoptionlist;
 }  }
   
   
 sub texoptionlist_correction {  
     my $texoptionlist = shift;  
     $texoptionlist =~ s/\\item \[\] Possible answers are:\s*/\\fbox\{/;  
     $texoptionlist =~ s/\.$/}/;  
     return $texoptionlist;  
 }  
   
   
 sub webbubbles {  sub webbubbles {
   
Removed from v.1.60  
changed lines
  Added in v.1.61

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