[LON-CAPA-cvs] cvs: loncom /homework inputtags.pm
bisitz
lon-capa-cvs-allow@mail.lon-capa.org
Wed, 27 Feb 2008 18:37:04 -0000
bisitz Wed Feb 27 13:37:04 2008 EDT
Modified files:
/loncom/homework inputtags.pm
Log:
Localization:
Added missing &mt(): "Correct", "Try"
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.237 loncom/homework/inputtags.pm:1.238
--- loncom/homework/inputtags.pm:1.237 Mon Jan 28 16:42:28 2008
+++ loncom/homework/inputtags.pm Wed Feb 27 13:37:02 2008
@@ -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 @@
&& $Apache::lonhomework::history{"$prefix.solved"} =~/^correct/
) {
+ my $txt_correct = &mt('Correct');
$message =~ s{(<td.*?>)(.*?)(</td>)}
- {$1 <strong>Correct</strong>. $3}s;
+ {$1 <strong>$txt_correct</strong>. $3}s;
}
- my $trystr = "(Try ".
- $Apache::lonhomework::history{"$prefix.tries"}.')';
+ my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")";
$message =~ s{(</td>)}{ $trystr $1};
}
my ($class) = ($message =~ m{<td.*class="([^"]*)"}); #"