loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.87, 2003/09/24 18:18:38	version 1.89, 2003/10/13 19:25:30
Line 302 sub displayfoils {	Line 302 sub displayfoils {
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
my $break;	my $break;
my $solved=$Apache::lonhomework::history{"resource.$part.solved"};	my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
my $status=$Apache::inputtags::status[-1];
if ( ($target ne 'tex') &&	if ( ($target ne 'tex') &&
&Apache::response::show_answer() ) {	&Apache::response::show_answer() ) {
foreach $name (@whichopt) {	foreach $name (@whichopt) {
Line 602 sub end_foil {	Line 601 sub end_foil {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $text ='';	my $text ='';
my $result = '';	my $result = '';
if ($target eq 'web' \|\| $target eq 'tex') {	if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze') {
$text=&Apache::lonxml::endredirection;	$text=&Apache::lonxml::endredirection;
if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') { $text = '\vspace*{-2 mm}\item '.$text; }	if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') { $text = '\vspace*{-2 mm}\item '.$text; }
}	}