[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm lonstatistics.pm

[raeburn]

raeburn		Wed Dec 24 01:14:25 2025 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm lonstatistics.pm 
  Log:
  - Satisfy w3c validation.
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.132 loncom/interface/lonquickgrades.pm:1.133
--- loncom/interface/lonquickgrades.pm:1.132	Thu Dec 18 01:10:39 2025
+++ loncom/interface/lonquickgrades.pm	Wed Dec 24 01:14:25 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.132 2025/12/18 01:10:39 raeburn Exp $
+# $Id: lonquickgrades.pm,v 1.133 2025/12/24 01:14:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -475,8 +475,12 @@
 }
 
 sub endGradeScreen {
-    my ($r)=@_;
-    $r->print('</div></div></div></div>'.&Apache::loncommon::end_page());
+    my ($r,$close_form)=@_;
+    $r->print('</div></div></div></div>');
+    if ($close_form) {
+        $r->print('</form>');
+    }
+    $r->print(&Apache::loncommon::end_page());
     return;
 }
 
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.167 loncom/interface/lonstatistics.pm:1.168
--- loncom/interface/lonstatistics.pm:1.167	Thu Dec 18 01:10:39 2025
+++ loncom/interface/lonstatistics.pm	Wed Dec 24 01:14:25 2025
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.167 2025/12/18 01:10:39 raeburn Exp $
+# $Id: lonstatistics.pm,v 1.168 2025/12/24 01:14:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -855,6 +855,7 @@
                                             ['sort','reportSelected',
                                              'SelectedStudent']);
     my $GoToPage = $env{'form.reportSelected'};
+    my $close_form;
  
     #
     # Give the LON-CAPA page header
@@ -992,11 +993,9 @@
                   text=>'Grading Analysis'});
             &Apache::longradinganalysis::build_grading_analysis_page($r,$c);
 	}
-        #
-        $r->print("</form>\n");
+        $close_form = 1;
     }
-    &Apache::lonquickgrades::endGradeScreen($r);
-    $r->print(&Apache::loncommon::end_page());
+    &Apache::lonquickgrades::endGradeScreen($r,$close_form);
     $r->rflush();
     #
     return OK;