loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.84.2.1, 2003/09/23 01:52:57	version 1.86, 2003/09/22 20:49:01
Line 437 sub optionlist_correction {	Line 437 sub optionlist_correction {

my $texoptionlist = shift;	my $texoptionlist = shift;
if ($texoptionlist=~/<option selected/ or $texoptionlist=~/<option>[^<]+<\/option>/) {	if ($texoptionlist=~/<option selected/ or $texoptionlist=~/<option>[^<]+<\/option>/) {
$texoptionlist =~ s/<option><\/option>/\\item \[\] Choose from: /;	$texoptionlist =~ s/<option><\/option>/\\item \[\] Choices: /;
$texoptionlist =~ s/<option>/\{\\bf /g;	$texoptionlist =~ s/<option>/\{\\bf /g;
$texoptionlist =~ s/<option selected="on">/\{\\bf /g;	$texoptionlist =~ s/<option selected="on">/\{\\bf /g;
$texoptionlist =~ s/<\/option>/\},/g;	$texoptionlist =~ s/<\/option>/\},/g;