loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.224, 2007/05/21 22:57:17	version 1.225, 2007/05/21 23:09:57
Line 637 sub decideoutput {	Line 637 sub decideoutput {
&mt('Your receipt is').' '.&Apache::lonnet::receipt($Apache::inputtags::part).	&mt('Your receipt is').' '.&Apache::lonnet::receipt($Apache::inputtags::part).
(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'');	(($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'');
}	}
&Apache::lonnet::logthis(" er \n$symb\n$message\n".$env{'course.'.
$env{'request.course.id'}.
'.disable_receipt_display'});
}	}
$button=0;	$button=0;
$previousmsg='';	$previousmsg='';
Line 1185 sub previous_tries {	Line 1182 sub previous_tries {
my $previous = $count_lookup{$which};	my $previous = $count_lookup{$which};
$message =~ s{(</td>)}{ as submission # $previous $1};	$message =~ s{(</td>)}{ as submission # $previous $1};
} elsif ($Apache::lonhomework::history{"$prefix.tries"}) {	} elsif ($Apache::lonhomework::history{"$prefix.tries"}) {
if ( $Apache::lonhomework::history{"$prefix.solved"} =~	if (!(lc($Apache::lonhomework::problemstatus) eq 'no'
/^correct/) {	&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER')
	&& $Apache::lonhomework::history{"$prefix.solved"} =~/^correct/
	) {

$message =~ s{(<td.?>)(.?)(</td>)}	$message =~ s{(<td.?>)(.?)(</td>)}
{$1 <strong>Correct</strong>. $3};	{$1 <strong>Correct</strong>. $3}s;
}	}
my $trystr = "(Try ".	my $trystr = "(Try ".
$Apache::lonhomework::history{"$prefix.tries"}.')';	$Apache::lonhomework::history{"$prefix.tries"}.')';