loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.53, 2002/10/17 17:13:44	version 1.54, 2002/10/24 19:51:49
Line 321 sub displayfoils {	Line 321 sub displayfoils {
$result .=$Apache::response::foilgroup{$name.'.value'}.	$result .=$Apache::response::foilgroup{$name.'.value'}.
":".$Apache::response::foilgroup{$name.'.text'}."\n";	":".$Apache::response::foilgroup{$name.'.text'}."\n";
} else {	} else {
	$Apache::response::foilgroup{$name.'.text'}=~s/\\item//;
$result .='\item '.$Apache::response::foilgroup{$name.'.value'}.	$result .='\item '.$Apache::response::foilgroup{$name.'.value'}.
":".$Apache::response::foilgroup{$name.'.text'}."\n";	":".$Apache::response::foilgroup{$name.'.text'}."\n";
}	}
Line 545 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') {