[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm lonnavdisplay.pm lonnavmaps.pm

[raeburn]

raeburn		Wed Feb 26 19:50:21 2025 EDT

  Modified files:              
    /loncom/interface	lonnavdisplay.pm lonnavmaps.pm loncommon.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/lonnavdisplay.pm
diff -u loncom/interface/lonnavdisplay.pm:1.45 loncom/interface/lonnavdisplay.pm:1.46
--- loncom/interface/lonnavdisplay.pm:1.45	Fri Feb  7 20:46:01 2025
+++ loncom/interface/lonnavdisplay.pm	Wed Feb 26 19:50:21 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Display Handler
 #
-# $Id: lonnavdisplay.pm,v 1.45 2025/02/07 20:46:01 raeburn Exp $
+# $Id: lonnavdisplay.pm,v 1.46 2025/02/26 19:50:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -384,7 +384,8 @@
 sub startContentScreen {
     my ($r,$mode,$course_type)=@_;
 
-    $r->print("\n".'<ul class="LC_TabContentBigger" id="mainnav">'."\n");
+    $r->print("\n".'<div class="LC_landmark" role="main">'.
+              '<ul class="LC_TabContentBigger" id="mainnav">'."\n");
     $r->print('<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>       '.&mt('Main Content').'       </b></a></li>'."\n");
     my $supptab;
     if ($env{'request.role.adv'}) {
@@ -407,7 +408,7 @@
 
 sub endContentScreen {
    my ($r)=@_;
-   $r->print('</div></div></div>');
+   $r->print('</div></div></div></div>');
 }
 
 1;
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.571 loncom/interface/lonnavmaps.pm:1.572
--- loncom/interface/lonnavmaps.pm:1.571	Mon Feb  3 19:07:54 2025
+++ loncom/interface/lonnavmaps.pm	Wed Feb 26 19:50:21 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.571 2025/02/03 19:07:54 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.572 2025/02/26 19:50:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1710,7 +1710,13 @@
 
     # Data
     if ($counter) {
-        $result.=&Apache::loncommon::start_data_table("LC_tableOfContent");
+        $result.=&Apache::loncommon::start_data_table("LC_tableOfContent").
+                 &Apache::loncommon::start_data_table_header_row('LC_visually_hidden').
+                 '<th>'.&mt('Resource or Folder').'</th>'.
+                 '<th>'.&mt('Alerts').'</th>'.
+                 '<th>'.&mt('Status Icon').'</th>'.
+                 '<th>'.&mt('Date/Completion Status').'</th>'.
+                 &Apache::loncommon::end_data_table_row()."\n";
     }
 
     my $res = "Apache::lonnavmaps::resource";
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1464 loncom/interface/loncommon.pm:1.1465
--- loncom/interface/loncommon.pm:1.1464	Tue Feb 25 16:33:39 2025
+++ loncom/interface/loncommon.pm	Wed Feb 26 19:50:21 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1464 2025/02/25 16:33:39 raeburn Exp $
+# $Id: loncommon.pm,v 1.1465 2025/02/26 19:50:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10936,7 +10936,11 @@
     }
 
     sub start_data_table_header_row {
-	return  '<tr class="LC_header_row">'."\n";;
+	my ($add_class,$id) = @_;
+	my $css_class = 'LC_header_row';
+	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
+	$id = (' id="'.$id.'"') unless ($id eq '');
+	return '<tr class="'.$css_class.'"'.$id.'>'."\n";
     }
 
     sub end_data_table_header_row {