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); |
} |
} |