loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.54, 2002/10/24 19:51:49	version 1.55, 2002/10/25 18:42:59
Line 322 sub displayfoils {	Line 322 sub displayfoils {
":".$Apache::response::foilgroup{$name.'.text'}."\n";	":".$Apache::response::foilgroup{$name.'.text'}."\n";
} else {	} else {
$Apache::response::foilgroup{$name.'.text'}=~s/\\item//;	$Apache::response::foilgroup{$name.'.text'}=~s/\\item//;
$result .='\item '.$Apache::response::foilgroup{$name.'.value'}.	$result .='\item \textit{'.$Apache::response::foilgroup{$name.'.value'}.'}'.
":".$Apache::response::foilgroup{$name.'.text'}."\n";	":".$Apache::response::foilgroup{$name.'.text'}."\n";
}	}
}	}
Line 546 sub end_foil {	Line 546 sub end_foil {
my $result = '';	my $result = '';
if ($target eq 'web' \|\| $target eq 'tex') {	if ($target eq 'web' \|\| $target eq 'tex') {
$text=&Apache::lonxml::endredirection;	$text=&Apache::lonxml::endredirection;
if ($target eq 'tex') { $text = '\item '.$text;	if ($target eq 'tex') { $text = '\item '.$text; }
}	}
if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer'	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer'
\|\| $target eq 'tex' \|\| $target eq 'analyze') {	\|\| $target eq 'tex' \|\| $target eq 'analyze') {