[LON-CAPA-cvs] cvs: loncom /publisher lonpubdisplay.pm
raeburn
raeburn at source.lon-capa.org
Mon May 11 22:00:33 EDT 2026
raeburn Tue May 12 02:00:33 2026 EDT
Modified files:
/loncom/publisher lonpubdisplay.pm
Log:
- WCAG 2 compliance: include landmark for page's main content.
Index: loncom/publisher/lonpubdisplay.pm
diff -u loncom/publisher/lonpubdisplay.pm:1.5 loncom/publisher/lonpubdisplay.pm:1.6
--- loncom/publisher/lonpubdisplay.pm:1.5 Mon Aug 4 18:42:04 2025
+++ loncom/publisher/lonpubdisplay.pm Tue May 12 02:00:33 2026
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpubdisplay.pm,v 1.5 2025/08/04 18:42:04 raeburn Exp $
+# $Id: lonpubdisplay.pm,v 1.6 2026/05/12 02:00:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -161,7 +161,9 @@
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
- $r->print(&Apache::loncommon::start_page('Metadata Publication'));
+ $r->print(&Apache::loncommon::start_page('Metadata Publication')
+ .'<div class="LC_landmark" role="main" id="LC_main_content">'."\n"
+ .'<h1 class="LC_heading_3">'.&mt('Metadata publication for directory').'</h1>');
# ---------------------------------------------------------------- Write Source
my $copyfile=$target;
@@ -188,7 +190,7 @@
$r->print('<span class="LC_error">'.
&mt('Failed to copy source').", $!, ".&mt('FAIL').
'</span>');
- $r->print(&Apache::loncommon::end_page());
+ $r->print('</div>'.&Apache::loncommon::end_page());
return OK;
}
@@ -203,7 +205,7 @@
# ------------------------------------------------------------------- Link back
$r->print('<a href="'.&Apache::loncommon::cfile_url($fn).'">'.
&mt('Back to Metadata').'</a>');
- $r->print(&Apache::loncommon::end_page());
+ $r->print('</div>'.&Apache::loncommon::end_page());
return OK;
}
@@ -364,6 +366,7 @@
.&Apache::lonhtmlcommon::breadcrumbs()
.&Apache::loncommon::head_subbox(
&Apache::loncommon::CSTR_pageheader($docroot.$fn))
+ .'<div class="LC_landmark" role="main" id="LC_main_content">'."\n"
);
my $thisdisfn=&HTML::Entities::encode($fn,'<>&"');
@@ -470,7 +473,7 @@
}
}
}
- $r->print(&Apache::loncommon::end_page());
+ $r->print('</div>'.&Apache::loncommon::end_page());
&reset_globals();
return OK;
}
More information about the LON-CAPA-cvs
mailing list