loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.81, 2003/07/25 19:29:15	version 1.84, 2003/08/01 19:04:06
Line 328 sub displayfoils {	Line 328 sub displayfoils {
$result.=$text."\n";	$result.=$text."\n";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$Apache::response::foilgroup{$name.'.text'}=~s/\\item//;	$Apache::response::foilgroup{$name.'.text'}=~s/\\item//;
$result .='\item \textit{'.$Apache::response::foilgroup{$name.'.value'}.'}'.	if ($max>1) {$result .='\item ';}
	$result .=' \textit{'.$Apache::response::foilgroup{$name.'.value'}.'}'.
":".$Apache::response::foilgroup{$name.'.text'}."\n";	":".$Apache::response::foilgroup{$name.'.text'}."\n";
}	}
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
Line 436 sub displayfoils {	Line 437 sub displayfoils {
sub optionlist_correction {	sub optionlist_correction {

my $texoptionlist = shift;	my $texoptionlist = shift;
if ($texoptionlist=~/<option selected/) {	if ($texoptionlist=~/<option selected/ or $texoptionlist=~/<option>[^<]+<\/option>/) {
$texoptionlist =~ s/<option><\/option>/\\item \[\] Possible answers are:/;	$texoptionlist =~ s/<option><\/option>/\\item \[\] Choose from: /;
$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;