version 1.44, 2002/07/29 20:43:47
|
version 1.45, 2002/08/05 15:55:39
|
Line 273 sub displayfoils {
|
Line 273 sub displayfoils {
|
my @falselist; |
my @falselist; |
my $result; |
my $result; |
my $name; |
my $name; |
$Apache::optionresponse::displayoptionintex=0; |
my $displayoptionintex=0; |
my @whichopt = &whichfoils($max); |
my @whichopt = &whichfoils($max); |
my $part=$Apache::inputtags::part; |
my $part=$Apache::inputtags::part; |
my $id=$Apache::inputtags::response[-1]; |
my $id=$Apache::inputtags::response[-1]; |
Line 305 sub displayfoils {
|
Line 305 sub displayfoils {
|
."</select>\n".$Apache::response::foilgroup{$name.'.text'}."\n"; |
."</select>\n".$Apache::response::foilgroup{$name.'.text'}."\n"; |
$temp++; |
$temp++; |
} else { |
} else { |
if ($Apache::optionresponse::displayoptionintex == 0) { |
if ($displayoptionintex == 0) { |
my $durtyoptionlist = $optionlist; |
my $texoptionlist = $optionlist; |
$durtyoptionlist =~ s/<option><\/option>/\\item \[\] The possible answers are:/; |
$texoptionlist =~ s/<option><\/option>/\\item \[\] The possible answers are:/; |
$durtyoptionlist =~ s/<option>/{\\bf /g; |
$texoptionlist =~ s/<option>/{\\bf /g; |
$durtyoptionlist =~ s/<\/option>/},/g; |
$texoptionlist =~ s/<\/option>/},/g; |
$durtyoptionlist =~ s/,$/\./g; |
$texoptionlist =~ s/,$/\./g; |
$durtyoptionlist =~ s/>/\$>\$/g; |
$texoptionlist =~ s/>/\$>\$/g; |
$durtyoptionlist =~ s/</\$<\$/g; |
$texoptionlist =~ s/</\$<\$/g; |
$durtyoptionlist =~ s/=/\$=\$/g; |
$texoptionlist =~ s/=/\$=\$/g; |
$result.= $durtyoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'}; |
$result.= $texoptionlist.'\item '.$Apache::response::foilgroup{$name.'.text'}; |
$Apache::optionresponse::displayoptionintex=1; |
$displayoptionintex=1; |
} else { |
} else { |
$result.= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
$result.= '\item '.$Apache::response::foilgroup{$name.'.text'}; |
} |
} |