loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.271.2.5, 2011/01/06 22:56:42	version 1.271.2.6, 2011/03/05 23:01:35
Line 1524 sub previous_tries {	Line 1524 sub previous_tries {
) {	) {

my $txt_correct = &mt('Correct');	my $txt_correct = &mt('Correct');
	my $awarded = $Apache::lonhomework::history{"$prefix.awarded"};
	if ($awarded < 1 && $awarded > 0) {
	$txt_correct=&mt('Partially Correct');
	} elsif ($awarded < 1) {
	if ($awarded eq '') {
	$txt_correct='';
	} else {
	$txt_correct=&mt('Incorrect');
	}
	}
$message =~ s{(<td.?>)(.?)(</td>)}	$message =~ s{(<td.?>)(.?)(</td>)}
{$1 <strong>$txt_correct</strong>. $3}s;	{$1 <strong>$txt_correct</strong>. $3}s;
}	}