[LON-CAPA-cvs] cvs: loncom /cgi userstatus.pl /interface domainstatus.pm

Sat Jan 3 19:09:42 EST 2026

raeburn		Sun Jan  4 00:09:42 2026 EDT

  Modified files:              
    /loncom/interface	domainstatus.pm 
    /loncom/cgi	userstatus.pl 
  Log:
  - WCAG 2 compliance
    - Include landmark for main content of page
    - Headings descend sequentially
    - Header for each column in data table
  
  
Index: loncom/interface/domainstatus.pm
diff -u loncom/interface/domainstatus.pm:1.9 loncom/interface/domainstatus.pm:1.10

--- loncom/interface/domainstatus.pm:1.9	Tue Mar  4 02:24:03 2025
+++ loncom/interface/domainstatus.pm	Sun Jan  4 00:09:41 2026
@@ -2,7 +2,7 @@
 # Generate a menu page containing links to server status pages accessible
 # to user. 
 #
-# $Id: domainstatus.pm,v 1.9 2025/03/04 02:24:03 raeburn Exp $
+# $Id: domainstatus.pm,v 1.10 2026/01/04 00:09:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -74,7 +74,8 @@
       text=>"Server Status Information"});
 
     $r->print(&Apache::loncommon::start_page('Server Status').
-              &Apache::lonhtmlcommon::breadcrumbs('Server Status Information'));
+              &Apache::lonhtmlcommon::breadcrumbs('Server Status Information').
+              '<div class="LC_landmark" role="main" id="LC_main_content">');
 
     if (keys(%candisplay) > 0) {
         $r->print(&print_status_menu(\%candisplay,$dom));
@@ -87,7 +88,7 @@
            .'</p>'
         ); 
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;
 }
 
Index: loncom/cgi/userstatus.pl
diff -u loncom/cgi/userstatus.pl:1.23 loncom/cgi/userstatus.pl:1.24
--- loncom/cgi/userstatus.pl:1.23	Sun Mar  7 02:34:25 2021
+++ loncom/cgi/userstatus.pl	Sun Jan  4 00:09:42 2026
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.23 2021/03/07 02:34:25 raeburn Exp $
+# $Id: userstatus.pl,v 1.24 2026/01/04 00:09:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -109,6 +109,7 @@
                   secs                => 'secs ago',
                   usrc                => 'User Counts',
                   load                => 'Load Average',
+                  scope               => 'Scope',
                   Overall             => 'Overall',
                   Domain              => 'Domain',
                   Course              => 'Course',
@@ -129,6 +130,7 @@
               '<title>LON-CAPA '.$lt{'usrs'}.'</title>'."\n".
               '</head>'."\n".
               '<body style="background-color:#FFFFFF">'."\n".
+              '<div style="margin:0;padding:0;border:0;" role="main">'."\n".
               "<h1>$lt{'usrs'} ".&Apache::lonlocal::locallocaltime($now).'</h1>';
     }
 
@@ -206,7 +208,7 @@
     }
     if (!$oneline && !$justsummary) {
        	foreach my $class (@actl) {
-	    print("\n\n<hr /><h1>$lt{$class}</h1>");    
+	    print("\n\n<hr /><h2>$lt{$class}</h2>");    
 	    foreach my $filename (sort(keys(%{$users{$class}}))) {
 		print("\n\n".$users{$class}{$filename}."\n\n<hr />");    
 	    }
@@ -228,7 +230,7 @@
 
 #	print "\n</pre>";
 	print "<b>$lt{'load'}:</b> ".$loadavg;
-	print "</body></html>";
+	print "</div></body></html>";
     } else {
 	foreach my $l1 (sort keys %usercount) {
 	    foreach my $l2 (sort keys %{$usercount{$l1}}) {
@@ -267,7 +269,7 @@
     my ($cat,$ltref,%usercount)=@_;
     print("<h3>$ltref->{$cat}</h3>\n");
     
-    print("<table border='1'><tr><th> </th><th>");
+    print("<table border='1'><tr><th>$ltref->{'scope'}</th><th>");
     print(join("</th><th>",map {$ltref->{$_};} ('Any', at actl)));
     print("</th></tr>");
     foreach my $type (sort(keys(%{$usercount{$cat}}))) {


