[LON-CAPA-cvs] cvs: loncom /homework grades.pm
banghart
lon-capa-cvs-allow@mail.lon-capa.org
Wed, 22 Aug 2007 18:27:05 -0000
banghart Wed Aug 22 14:27:05 2007 EDT
Modified files:
/loncom/homework grades.pm
Log:
Correct display of multiple sections.
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.432 loncom/homework/grades.pm:1.433
--- loncom/homework/grades.pm:1.432 Tue Aug 21 18:21:54 2007
+++ loncom/homework/grades.pm Wed Aug 22 14:27:03 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.432 2007/08/21 22:21:54 banghart Exp $
+# $Id: grades.pm,v 1.433 2007/08/22 18:27:03 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3095,8 +3095,11 @@
'onClick="javascript:submit();" target="_self" /></form>'."\n";
if (scalar(%$fullname) eq 0) {
my $colspan=3+scalar(@parts);
- $result='<span class="LC_warning">There are no students in section "'.$env{'form.section'}.
- '" with enrollment status "'.$env{'form.Status'}.'" to modify or grade.</span>';
+ my $section_display = join (", ",&Apache::loncommon::get_env_multiple('form.section'));
+ $result='<span class="LC_warning">'.
+ &mt('There are no students in section(s) [_1] with enrollment status [_2] to modify or grade',
+ $section_display, $env{'form.Status'}).
+ '</span>';
}
$result.=&show_grading_menu_form($symb);
return $result;
@@ -3173,9 +3176,10 @@
my ($request) = @_;
my $symb=&get_symb($request);
- my $title='<h3><span class="LC_info">Current Grade Status</span></h3>';
- $title.='<h4><b>Current Resource: </b>'.$env{'form.probTitle'}.'</h4><br />'."\n";
- $title.='<h4><b>Section: </b>'.$env{'form.section'}.'</h4>'."\n";
+ my $section_display = join (", ",&Apache::loncommon::get_env_multiple('form.section'));
+ my $title='<h3><span class="LC_info">'.&mt('Current Grade Status').'</span></h3>';
+ $title.='<h4>'.&mt('<b>Current Resource: </b>[_1]',$env{'form.probTitle'}).'</h4><br />'."\n";
+ $title.='<h4>'.&mt('<b>Section: </b>[_1]',$section_display).'</h4>'."\n";
my $result= '<table border="0"><tr><td bgcolor="#777777">'."\n";
$result.= '<table border="0"><tr bgcolor="#deffff">'.