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 { |
|
|