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

raeburn raeburn at source.lon-capa.org
Tue Oct 7 16:18:06 EDT 2025


raeburn		Tue Oct  7 20:18:06 2025 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - Bug 6623. Sequential numbering in leftmost column in table of students  
    with late submission(s) for one or more parts in current problem in Content
    Grading.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.827 loncom/homework/grades.pm:1.828
--- loncom/homework/grades.pm:1.827	Thu Sep  4 13:49:06 2025
+++ loncom/homework/grades.pm	Tue Oct  7 20:18:06 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.827 2025/09/04 13:49:06 raeburn Exp $
+# $Id: grades.pm,v 1.828 2025/10/07 20:18:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2076,6 +2076,7 @@
                     }
                     (keys(%$fullname))) {
                     $ctr ++;
+                    my $shownum = $numrow + 1;
                     my $section = $classlist->{$student}->[&Apache::loncoursedata::CL_SECTION()];
                     my $group = $classlist->{$student}->[&Apache::loncoursedata::CL_GROUP()];
                     my $udom = $classlist->{$student}->[&Apache::loncoursedata::CL_SDOM()];
@@ -2083,7 +2084,7 @@
                     my %record =
                         &Apache::lonnet::restore($symb,$env{'request.course.id'},$udom,$uname);
                     my $row = &Apache::loncommon::start_data_table_row().
-                              '<td>'.$ctr.'</td><td>'.
+                              '<td>'.$shownum.'</td><td>'.
                               &nameUserString(undef,$$fullname{$student},$uname,$udom).
                               ' '.$section.($group ne '' ?'/'.$group:'').'</td>'."\n";
                     my $count = 0;




More information about the LON-CAPA-cvs mailing list