[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[bisitz]

bisitz		Thu Jan 30 19:11:05 2014 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - Internationalization - added missing &mt() calls
  - Error style for error message
  
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.716 loncom/homework/grades.pm:1.717
--- loncom/homework/grades.pm:1.716	Thu Jan 30 18:04:36 2014
+++ loncom/homework/grades.pm	Thu Jan 30 19:11:05 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.716 2014/01/30 18:04:36 bisitz Exp $
+# $Id: grades.pm,v 1.717 2014/01/30 19:11:05 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2514,7 +2514,7 @@
             }
 	    my ($partid,$foo) = split(/submission$/,$key);
 	    my $draft  = $lasthash{$partid.'awarddetail'} eq 'DRAFT' ?
-		'<span class="LC_warning">Draft Copy</span> ' : '';
+		'<span class="LC_warning">'.&mt('Draft Copy').'</span> ' : '';
 	    #push(@string, join(':', $key, $hide, $draft.$lasthash{$key}));
             push(@string, join(':', $key, $hide, $draft.(
                 ref($lasthash{$key}) eq 'ARRAY' ?
@@ -2546,8 +2546,10 @@
 sub show_previous_task_version {
     my ($request,$symb) = @_;
     if ($symb eq '') {
-        $request->print("Unable to handle ambiguous references.");
-
+        $request->print(
+            '<span class="LC_error">'.
+            &mt('Unable to handle ambiguous references.').
+            '</span>');
         return '';
     }
     my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'});