[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