[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