loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.237, 2008/01/28 21:42:28	version 1.238, 2008/02/27 18:37:02
Line 1256 sub previous_tries {	Line 1256 sub previous_tries {
&& $Apache::lonhomework::history{"$prefix.solved"} =~/^correct/	&& $Apache::lonhomework::history{"$prefix.solved"} =~/^correct/
) {	) {

	my $txt_correct = &mt('Correct');
$message =~ s{(<td.?>)(.?)(</td>)}	$message =~ s{(<td.?>)(.?)(</td>)}
{$1 <strong>Correct</strong>. $3}s;	{$1 <strong>$txt_correct</strong>. $3}s;
}	}
my $trystr = "(Try ".	my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")";
$Apache::lonhomework::history{"$prefix.tries"}.')';
$message =~ s{(</td>)}{ $trystr $1};	$message =~ s{(</td>)}{ $trystr $1};
}	}
my ($class) = ($message =~ m{<td.class="([^"])"}); #"	my ($class) = ($message =~ m{<td.class="([^"])"}); #"