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

Diff for /loncom/homework/optionresponse.pm between versions 1.58 and 1.59

version 1.58, 2002/11/07 16:45:55 version 1.59, 2002/11/10 15:51:31
Line 327  sub displayfoils { Line 327  sub displayfoils {
   $result.='\vskip 0 mm ';    $result.='\vskip 0 mm ';
       }        }
       if ($target ne 'tex') {        if ($target ne 'tex') {
   $result .=$Apache::response::foilgroup{$name.'.value'}.    my $text=$Apache::response::foilgroup{$name.'.text'};
       ":".$Apache::response::foilgroup{$name.'.text'}."\n";    my $value=$Apache::response::foilgroup{$name.'.value'};
     if (!($text=~s|<drawoptionlist\s*/>|$value|)) {
         $text=$value.': '.$text;
     }
     $result.=$text."\n";
       } else {        } else {
   $Apache::response::foilgroup{$name.'.text'}=~s/\\item//;    $Apache::response::foilgroup{$name.'.text'}=~s/\\item//;
    $result .='\item \textit{'.$Apache::response::foilgroup{$name.'.value'}.'}'.     $result .='\item \textit{'.$Apache::response::foilgroup{$name.'.value'}.'}'.
Line 358  sub displayfoils { Line 362  sub displayfoils {
  }   }
       }        }
       if ($target ne 'tex') {        if ($target ne 'tex') {
   $result.="<br /><select name=\"HWVAL_$Apache::inputtags::response['-1']:$temp\">"    $optionlist='<select name="HWVAL_'.
       .$optionlist        $Apache::inputtags::response['-1'].':'.$temp.'">'.
   ."</select>\n".$Apache::response::foilgroup{$name.'.text'}."\n";    $optionlist."</select>\n";
     my $text=$Apache::response::foilgroup{$name.'.text'};
     if (!($text=~s|<drawoptionlist\s*/>|$optionlist|)) {
         $text=$optionlist.$text;
     }
     $result.="<br />".$text."\n";
   if ($Apache::lonhomework::type eq 'exam') {    if ($Apache::lonhomework::type eq 'exam') {
     $result.=&webbubbles(\@opt,\@alphabet);      $result.=&webbubbles(\@opt,\@alphabet);
   }    }
Removed from v.1.58  
changed lines
  Added in v.1.59

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