[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