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

[raeburn]

raeburn		Mon Jan  5 17:48:22 2026 EDT

  Modified files:              
    /loncom/interface	lonblockingstatus.pm 
  Log:
  - WCAG compliance
    - Include landmark for page's main content to support "Skip to main content"
    - Include sequential headings starting with <h1>.
  
  
Index: loncom/interface/lonblockingstatus.pm
diff -u loncom/interface/lonblockingstatus.pm:1.23 loncom/interface/lonblockingstatus.pm:1.24
--- loncom/interface/lonblockingstatus.pm:1.23	Tue Dec 31 19:28:29 2024
+++ loncom/interface/lonblockingstatus.pm	Mon Jan  5 17:48:22 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # displays the blocking status table
 #
-# $Id: lonblockingstatus.pm,v 1.23 2024/12/31 19:28:29 raeburn Exp $
+# $Id: lonblockingstatus.pm,v 1.24 2026/01/05 17:48:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -63,18 +63,19 @@
         }
     }
     $r->print(&Apache::loncommon::start_page($title,undef,
-                                            {'only_body' => 1}));
-
+                                            {'only_body' => 1})
+             .'<div class="LC_landmark" role="main" id="LC_main_content">');
     if (($activity eq '') || (!$activities{$activity})) {
-        $r->print('<p class="LC_error">'.&mt('Error: unknown activity type blocked').'</p>');
+        $r->print('<h1 class="LC_heading_3 LC_error">'.&mt('Error: unknown activity type blocked').'</h1>');
     } elsif (($activity eq 'docs') && ($origurl eq '') && ($origsymb eq '')) {
-        $r->print('<p class="LC_error">'.&mt('Error: could not determine what content was blocked from access').'</p>');
+        $r->print('<h1 class="LC_heading_3 LC_error">'.&mt('Error: could not determine what content was blocked from access').'</h1>');
     } else {
         my $clientip = &Apache::lonnet::get_requestor_ip($r);
+        $r->print('<h1 class="LC_heading_2">'.&mt('Access Status').'</h1>');
         $r->print(&blockpage($activity,$origurl,$origsymb,$clientip));
     }
 
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
 
     return OK;
 }