loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.96, 2003/11/15 06:28:02	version 1.97, 2004/01/06 20:37:29
Line 445 sub optionlist_correction {	Line 445 sub optionlist_correction {
$texoptionlist =~ s/>/\$>\$/g;	$texoptionlist =~ s/>/\$>\$/g;
$texoptionlist =~ s/</\$<\$/g;	$texoptionlist =~ s/</\$<\$/g;
$texoptionlist =~ s/=/\$=\$/g;	$texoptionlist =~ s/=/\$=\$/g;
$texoptionlist =~ s/\^(\d+)/<m>\$$1\$<\/m>/g;	$texoptionlist =~ s/\^(\d+)/\$^{$1}\$/g;
} else {	} else {
$texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;	$texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;
}	}