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

albertel lon-capa-cvs-allow@mail.lon-capa.org
Sat, 03 Nov 2007 00:18:38 -0000


albertel		Fri Nov  2 20:18:38 2007 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - mt the Grade status page
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.477 loncom/homework/grades.pm:1.478
--- loncom/homework/grades.pm:1.477	Fri Nov  2 20:08:09 2007
+++ loncom/homework/grades.pm	Fri Nov  2 20:18:37 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.477 2007/11/03 00:08:09 albertel Exp $
+# $Id: grades.pm,v 1.478 2007/11/03 00:18:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3394,8 +3394,8 @@
     }
     my (undef,undef,$url) = &Apache::lonnet::decode_symb($symb);
     foreach my $partid (@partid) {
-	$header .= '<th align="center">Old Score</th>'.
-	    '<th align="center">New Score</th>';
+	$header .= '<th align="center">'.&mt('Old Score').'</th>'.
+	    '<th align="center">'.&mt('New Score').'</th>';
 	$columns{$partid}=2;
 	foreach my $stores (@parts) {
 	    my ($part,$type) = &split_part_type($stores);
@@ -3404,16 +3404,16 @@
 	    my $display=&Apache::lonnet::metadata($url,$stores.'.display');
 	    $display =~ s/\[Part: (\w)+\]//;
 	    $display =~ s/Number of Attempts/Tries/;
-	    $header .= '<th align="center">Old '.$display.'</th>'.
-		'<th align="center">New '.$display.'</th>';
+	    $header .= '<th align="center">'.&mt('Old '.$display).'</th>'.
+		'<th align="center">'.&mt('New '.$display).'</th>';
 	    $columns{$partid}+=2;
 	}
     }
     foreach my $partid (@partid) {
 	my $display_part=&get_display_part($partid,$symb);
-	$result .= '<th colspan="'.$columns{$partid}.
-	    '" align="center">Part: '.$display_part.
-	    ' (Weight = '.$weight{$partid}.')</th>';
+	$result .= '<th colspan="'.$columns{$partid}.'" align="center">'.
+	    &mt('Part: [_1] (Weight = [_2])',$display_part,$weight{$partid}).
+	    '</th>';
 
     }
     $result .= &Apache::loncommon::end_data_table_header_row().
@@ -3433,7 +3433,8 @@
 	if (!&canmodify($usec)) {
 	    my $numcols=scalar(@partid)*4+2;
 	    push(@noupdate,
-		 $line."<td colspan=\"$numcols\"><span class=\"LC_warning\">Not allowed to modify student</span></td></tr>");
+		 $line."<td colspan=\"$numcols\"><span class=\"LC_warning\">".
+		 &mt('Not allowed to modify student')."</span></td></tr>");
 	    next;
 	}
         my %aggregate = ();
@@ -3553,7 +3554,9 @@
 #	my $numcols=(scalar(@partid)*(scalar(@parts)-1)*2)+3;
 	my $numcols=scalar(@partid)*4+2;
 	$result .= &Apache::loncommon::start_data_table_row('LC_empty_row').
-	    '<td align="center" colspan="'.$numcols.'">No Changes Occurred For the Students Below</td>'.
+	    '<td align="center" colspan="'.$numcols.'">'.
+	    &mt('No Changes Occurred For the Students Below').
+	    '</td>'.
 	    &Apache::loncommon::end_data_table_row();
 	foreach my $line (@noupdate) {
 	    $result.=
@@ -3564,9 +3567,11 @@
     }
     $result .= &Apache::loncommon::end_data_table().
 	&show_grading_menu_form($symb);
-    my $msg = '<p><b>Number of records updated = '.$rec_update.
-	' for '.$count.' student'.($count <= 1 ? '' : 's').'.</b><br />'.
-	'<b>Total number of students = '.$env{'form.total'}.'</b></p>';
+    my $msg = '<p><b>'.
+	&mt('Number of records updated = [_1] for [quant,_2,student].',
+	    $rec_update,$count).'</b><br />'.
+	'<b>'.&mt('Total number of students = [_1]',$env{'form.total'}).
+	'</b></p>';
     return $title.$msg.$result;
 }
 
@@ -7226,7 +7231,7 @@
 	'<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n".
 	'<input type="hidden" name="saveState"  value="'.$env{'form.saveState'}.'" />'."\n".
 	'<input type="hidden" name="command" value="gradingmenu" />'."\n".
-	'<input type="submit" name="submit" value="Grading Menu" />'."\n".
+	'<input type="submit" name="submit" value="'.&mt('Grading Menu').'" />'."\n".
 	'</form>'."\n";
     return $result;
 }