[LON-CAPA-cvs] cvs: loncom /cgi lonmodulecheck.pl

[raeburn]

raeburn		Tue May  5 13:26:36 2026 EDT

  Modified files:              
    /loncom/cgi	lonmodulecheck.pl 
  Log:
  - WCAG 2 compliance
    - Include landmark for page's main content to support "Skip to main content".
    - Sequential headings.
  
  
Index: loncom/cgi/lonmodulecheck.pl
diff -u loncom/cgi/lonmodulecheck.pl:1.5 loncom/cgi/lonmodulecheck.pl:1.6
--- loncom/cgi/lonmodulecheck.pl:1.5	Sat May 10 13:58:15 2014
+++ loncom/cgi/lonmodulecheck.pl	Tue May  5 13:26:36 2026
@@ -3,7 +3,7 @@
 # Compares checksums for most installed files with expected values
 # and reports discrepancies.
 #
-# $Id: lonmodulecheck.pl,v 1.5 2014/05/10 13:58:15 raeburn Exp $
+# $Id: lonmodulecheck.pl,v 1.6 2026/05/05 13:26:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -84,16 +84,17 @@
     my $loncaparev = &Apache::lonnet::get_server_loncaparev($machine_dom,$lonhost);
     my ($version,$timestamp) = split(/\-/,$loncaparev);
     &Apache::lonlocal::get_language_handle();
-    print(&Apache::loncommon::start_page('Code integrity check'));
+    print &Apache::loncommon::start_page('Code integrity check')
+         .'<div class="LC_landmark" role="main" id="LC_main_content">';
     if ($loncaparev =~ /CVS_HEAD/) {
-        print('<h3>'.
+        print('<h1 class="LC_heading_2">'.
               &Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD').
-              '</h3>');
+              '</h1>');
     } else {
-        print('<h3>'.
+        print('<h1 class="LC_heading_2">'.
               &Apache::lonlocal::mt('Code integrity check -- LON-CAPA version: [_1]',
                                     $version).
-              '</h3>');
+              '</h1>');
         my $distro = &LONCAPA::distro();
         if ($distro) {
             my ($serversums,$serverversions) =