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

raeburn raeburn at source.lon-capa.org
Wed Feb 26 15:32:55 EST 2025


raeburn		Wed Feb 26 20:32:55 2025 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.723 loncom/interface/londocs.pm:1.724
--- loncom/interface/londocs.pm:1.723	Mon Feb  3 22:52:36 2025
+++ loncom/interface/londocs.pm	Wed Feb 26 20:32:54 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.723 2025/02/03 22:52:36 raeburn Exp $
+# $Id: londocs.pm,v 1.724 2025/02/26 20:32:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4985,7 +4985,7 @@
                        .&Apache::loncommon::help_open_menu('Navigation Screen',
                                                            $helpitem,undef,'RAT')
                        .'</div><div class="LC_navtools">'.&mt('Tools:').'</div>'
-                       .'<div class="LC_navtools">'."\n".'<ul id="LC_toolbar">' 
+                       .'<div class="LC_navtools">'."\n".'<ul id="LC_toolbar">'
                        .'<li><a href="/adm/coursedocs?forcesupplement=1&command=editsupp" '
                        .'id="LC_content_toolbar_edittoplevel" '
                        .'class="LC_toolbarItem" '
@@ -6841,7 +6841,8 @@
 
 sub startContentScreen {
     my ($mode) = @_;
-    my $output = '<ul class="LC_TabContentBigger" id="mainnav">';
+    my $output = '<div class="LC_landmark" role="main">'.
+                 '<ul class="LC_TabContentBigger" id="mainnav">';
     if (($mode eq 'navmaps') || ($mode eq 'supplemental')) {
         $output .= '<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>    '.&mt('Content Overview').'    </b></a></li>'."\n";
         $output .= '<li'.(($mode eq 'coursesearch')?' class="active"':'').'><a href="/adm/searchcourse"><b>     '.&mt('Content Search').'     </b></a></li>'."\n";
@@ -6865,7 +6866,7 @@
 #
 
 sub endContentScreen {
-    return '</div></div></div>';
+    return '</div></div></div></div>';
 }
 
 sub supplemental_base {




More information about the LON-CAPA-cvs mailing list