--- loncom/homework/inputtags.pm 2008/01/28 21:42:28 1.237 +++ loncom/homework/inputtags.pm 2008/02/27 18:37:02 1.238 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.237 2008/01/28 21:42:28 www Exp $ +# $Id: inputtags.pm,v 1.238 2008/02/27 18:37:02 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1256,11 +1256,11 @@ sub previous_tries { && $Apache::lonhomework::history{"$prefix.solved"} =~/^correct/ ) { + my $txt_correct = &mt('Correct'); $message =~ s{()(.*?)()} - {$1 Correct. $3}s; + {$1 $txt_correct. $3}s; } - my $trystr = "(Try ". - $Apache::lonhomework::history{"$prefix.tries"}.')'; + my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")"; $message =~ s{()}{ $trystr $1}; } my ($class) = ($message =~ m{