version 1.39, 2002/05/03 19:32:57
|
version 1.41, 2002/06/21 20:36:30
|
Line 132 ENDTABLE
|
Line 132 ENDTABLE
|
if ($optchanged) { |
if ($optchanged) { |
$result = "<foilgroup options=\"("; |
$result = "<foilgroup options=\"("; |
foreach my $option (@options) { |
foreach my $option (@options) { |
$option=~s/\'/\\\'/; |
$option=~s/\'/\\\'/g; |
&Apache::lonxml::debug("adding option :$option:"); |
&Apache::lonxml::debug("adding option :$option:"); |
$result .="'".$option."',"; |
$result .="'".$option."',"; |
} |
} |
Line 313 sub displayfoils {
|
Line 313 sub displayfoils {
|
$durtyoptionlist =~ s/<option>/{\\bf /g; |
$durtyoptionlist =~ s/<option>/{\\bf /g; |
$durtyoptionlist =~ s/<\/option>/},/g; |
$durtyoptionlist =~ s/<\/option>/},/g; |
$durtyoptionlist =~ s/,$/\./g; |
$durtyoptionlist =~ s/,$/\./g; |
|
$durtyoptionlist =~ s/>/\$>\$/g; |
|
$durtyoptionlist =~ s/</\$<\$/g; |
|
$durtyoptionlist =~ s/=/\$=\$/g; |
$result.= $durtyoptionlist.$Apache::response::foilgroup{$name.'.text'}; |
$result.= $durtyoptionlist.$Apache::response::foilgroup{$name.'.text'}; |
$Apache::optionresponse::displayoptionintex=1; |
$Apache::optionresponse::displayoptionintex=1; |
} else { |
} else { |