[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm /publisher loncfile.pm
raeburn
raeburn at source.lon-capa.org
Thu Apr 16 18:41:05 EDT 2026
raeburn Thu Apr 16 22:41:05 2026 EDT
Modified files:
/loncom/publisher loncfile.pm
/loncom/interface lonmenu.pm
Log:
- Accessibility testing using axe-core and puppeteer (node.js).
- Only show "Accessibility link/icon in Functions menu when displaying
file in Authoring Space if file name has appropriate file extension.
- Title in first row of Check Accessibility panel depends on context.
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.133 loncom/publisher/loncfile.pm:1.134
--- loncom/publisher/loncfile.pm:1.133 Tue Mar 31 23:29:34 2026
+++ loncom/publisher/loncfile.pm Thu Apr 16 22:41:04 2026
@@ -9,7 +9,7 @@
# and displays a page showing the results of the action.
#
#
-# $Id: loncfile.pm,v 1.133 2026/03/31 23:29:34 raeburn Exp $
+# $Id: loncfile.pm,v 1.134 2026/04/16 22:41:04 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1040,9 +1040,15 @@
}
my @posstypes = qw(problem exam quiz assess survey xml html xhtml htm xhtm);
if ((-e $fn) && ((-d $fn) || ($fn =~ /\.(problem|exam|quiz|assess|survey|xml|x?html?)$/))) {
+ my $title;
+ if (-d $fn) {
+ $title = &mt('Directory');
+ } else {
+ $title = &mt('Resource');
+ }
$r->print('<input type="hidden" name="accdload" value="" />'."\n".
&Apache::lonhtmlcommon::start_pick_box().
- &Apache::lonhtmlcommon::row_title(&mt('Directory')).
+ &Apache::lonhtmlcommon::row_title($title).
&display($fn).
&Apache::lonhtmlcommon::row_closure().
&Apache::lonhtmlcommon::row_title(&mt('Options').
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.573 loncom/interface/lonmenu.pm:1.574
--- loncom/interface/lonmenu.pm:1.573 Tue Mar 31 23:29:35 2026
+++ loncom/interface/lonmenu.pm Thu Apr 16 22:41:05 2026
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.573 2026/03/31 23:29:35 raeburn Exp $
+# $Id: lonmenu.pm,v 1.574 2026/04/16 22:41:05 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1349,7 +1349,7 @@
s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS
}
- if ($thisdisfn=~/\.problem|exam|quiz|assess|survey|xml|x?html?/) {
+ if ($thisdisfn=~/\.(problem|exam|quiz|assess|survey|xml|x?html?)$/) {
$menuitems .= (<<ENDMENUITEMS);
s&7&8&accessibility-22x22.png&Accessibility&dir[_1]&gocstr('/adm/cfile?action=accessibility','/priv/$udom/$uname/$cleandisfn')&Check Accessibility
ENDMENUITEMS
More information about the LON-CAPA-cvs
mailing list