loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

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 {