|
version 1.112, 2004/07/06 14:53:00
|
version 1.116, 2004/07/29 19:40:23
|
|
Line 338 sub displayfoils {
|
Line 338 sub displayfoils {
|
| my $lastopt=$lastresponse{$name}; |
my $lastopt=$lastresponse{$name}; |
| if ($text!~/^\s*$/) { $break='<br />'; } |
if ($text!~/^\s*$/) { $break='<br />'; } |
| $result.=$break; |
$result.=$break; |
| if ($target eq 'web' || $target eq 'tex') { |
if ($target eq 'web') { |
| my $value=$Apache::response::foilgroup{$name.'.value'}; |
my $value=$Apache::response::foilgroup{$name.'.value'}; |
| if (!($text=~s|<drawoptionlist\s*/>|$value|)) { |
if (!($text=~s|<drawoptionlist\s*/>|$value|)) { |
| if ($text=~/^\s*$/) { |
if ($text=~/^\s*$/) { |
|
Line 453 sub optionlist_correction {
|
Line 453 sub optionlist_correction {
|
| if ($TeXlayout eq 'vertical') { |
if ($TeXlayout eq 'vertical') { |
| $texoptionlist.=' \vskip 0 mm ', |
$texoptionlist.=' \vskip 0 mm ', |
| } else { |
} else { |
| $texoptionlist.=','; |
$texoptionlist.=', '; |
| } |
} |
| } |
} |
| chop($texoptionlist); |
$texoptionlist=~s/, $//; |
| if ($TeXlayout ne 'vertical') {$texoptionlist.='.';} |
if ($TeXlayout ne 'vertical') {$texoptionlist.='.';} |
| } else { |
} else { |
| if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';} |
if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';} |
|
Line 603 sub end_foil {
|
Line 603 sub end_foil {
|
| my $result = ''; |
my $result = ''; |
| if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { |
if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { |
| $text=&Apache::lonxml::endredirection; |
$text=&Apache::lonxml::endredirection; |
| |
if ($target eq 'tex') {$text=~s/\\strut\s*\\\\\s*\\strut/\\vskip 0 mm/;} |
| if (($target eq 'tex') and ($Apache::lonhomework::type ne 'exam') and ($text=~/\S/)) {$text = '\vspace*{-2 mm}\item '.$text;} |
if (($target eq 'tex') and ($Apache::lonhomework::type ne 'exam') and ($text=~/\S/)) {$text = '\vspace*{-2 mm}\item '.$text;} |
| } |
} |
| if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' |
![[BACK]](/icons/back.gif){kind=icon}
Return to optionresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework