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

[raeburn]

raeburn		Wed Mar  6 15:45:30 2019 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - Bug 5895
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.760 loncom/homework/grades.pm:1.761
--- loncom/homework/grades.pm:1.760	Sat Feb 23 15:18:33 2019
+++ loncom/homework/grades.pm	Wed Mar  6 15:45:29 2019
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.760 2019/02/23 15:18:33 raeburn Exp $
+# $Id: grades.pm,v 1.761 2019/03/06 15:45:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4925,6 +4925,7 @@
     my $cdom      = $env{"course.$env{'request.course.id'}.domain"};
     my $cnum      = $env{"course.$env{'request.course.id'}.num"};
     my $getsec    = $env{'form.section'} eq '' ? 'all' : $env{'form.section'};
+    my $getgroup  = $env{'form.group'} eq '' ? 'all' : $env{'form.group'};
 
     my $result='<h3><span class="LC_info"> '.
 	&mt('Manual Grading by Page or Sequence').'</span></h3>';
@@ -5014,7 +5015,7 @@
 	'<th>'.&nameUserString('header').'</th>'.
 	&Apache::loncommon::end_data_table_header_row();
  
-    my (undef,undef,$fullname) = &getclasslist($getsec,'1');
+    my (undef,undef,$fullname) = &getclasslist($getsec,'1',$getgroup);
     my $ptr = 1;
     foreach my $student (sort 
 			 {