Return to optionresponse.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.40, 2002/05/23 18:02:03 | 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."',"; |
} | } |