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

[raeburn]

raeburn		Sat Aug 16 11:25:19 2025 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - Bug 6623. Adjust colspan for handback row in gradeBox table, when there
    is a "Late (fraction)" column in the header and first row. 
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.813 loncom/homework/grades.pm:1.814
--- loncom/homework/grades.pm:1.813	Sat Aug 16 11:15:57 2025
+++ loncom/homework/grades.pm	Sat Aug 16 11:25:19 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.813 2025/08/16 11:15:57 raeburn Exp $
+# $Id: grades.pm,v 1.814 2025/08/16 11:25:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3004,6 +3004,7 @@
     my $result=&Apache::loncommon::start_data_table_row();
     my $ctr = 0;
     my $thisweight = 0;
+    my $colspan = 6;
     my $increment = &get_increment();
 
     my $radio.='<table border="0"><tr>'."\n";  # display radio buttons in a nice table 10 across
@@ -3027,6 +3028,7 @@
 	' </td>'."\n";
     if ($has_late) {
         $line.='<td>'.$latefrac.'</td>';
+        $colspan ++;
     }
     $line.='<td><select name="GD_SEL'.$counter.'_'.$partid.'" '.
 	'onchange="javascript:clearRadBox(this.form,\''.$counter.'_'.$partid.'\')" >'."\n";
@@ -3043,7 +3045,7 @@
     $result .= 
 	    '<td>'.$data_WGT.$display_part.'</td><td>'.$radio.'</td><td>'.&mt('or').'</td><td>'.$line.'</td>';
     $result.=&Apache::loncommon::end_data_table_row();
-    $result.=&Apache::loncommon::start_data_table_row().'<td colspan="6">';
+    $result.=&Apache::loncommon::start_data_table_row().'<td colspan="'.$colspan.'">';
     $result.='<input type="hidden" name="stores'.$counter.'_'.$partid.'" value="" />'."\n".
 	'<input type="hidden" name="oldpts'.$counter.'_'.$partid.'" value="'.$score.'" />'."\n".
 	'<input type="hidden" name="solved'.$counter.'_'.$partid.'" value="'.