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

[raeburn]

raeburn		Thu Feb 27 02:02:10 2025 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.724 loncom/interface/londocs.pm:1.725
--- loncom/interface/londocs.pm:1.724	Wed Feb 26 20:32:54 2025
+++ loncom/interface/londocs.pm	Thu Feb 27 02:02:10 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.724 2025/02/26 20:32:54 raeburn Exp $
+# $Id: londocs.pm,v 1.725 2025/02/27 02:02:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5044,6 +5044,9 @@
             } else {
                 $to_show .= $toolslink
                            .&Apache::loncommon::start_data_table('LC_tableOfContent')
+                           .&Apache::loncommon::start_data_table_header_row('LC_visually_hidden')
+                           .'<th>'.&mt('Resource Type (Icon)').'</th><th>'.&mt('Resource or Folder').'</th>'
+                           .&Apache::loncommon::end_data_table_header_row()
                            .$output.' '
                            .&Apache::loncommon::end_data_table();
             }
@@ -5908,18 +5911,21 @@
     } else {
         $reinit = &mt('(re-initialize course to access)');
     }
-    $line.='<td class="LC_docs_entry_commands"'.$tdalign.'><span class="LC_nobreak">'.$editlink.$renamelink.'</span>';
-    if ($orig_url =~ /$LONCAPA::assess_re/) {
-        $line.= '<br />';
-        if ($curralias ne '') {
-            $line.='<span class="LC_nobreak"><a href="javascript:delalias('."'$esc_path','$orderidx'".');" class="LC_docs_alias">'.
-                   $lt{'da'}.'</a></span>';
-        } else {
-            $line.='<span class="LC_nobreak"><a href="javascript:setalias('."'$esc_path','$orderidx'".');" class="LC_docs_alias">'.
-                   $lt{'sa'}.'</a></span>';
+    if ($allowed) {
+        $line.='<td class="LC_docs_entry_commands"'.$tdalign.'><span class="LC_nobreak">'.$editlink.$renamelink.'</span>';
+        if ($orig_url =~ /$LONCAPA::assess_re/) {
+            $line.= '<br />';
+            if ($curralias ne '') {
+                $line.='<span class="LC_nobreak"><a href="javascript:delalias('."'$esc_path','$orderidx'".');" class="LC_docs_alias">'.
+                       $lt{'da'}.'</a></span>';
+            } else {
+                $line.='<span class="LC_nobreak"><a href="javascript:setalias('."'$esc_path','$orderidx'".');" class="LC_docs_alias">'.
+                       $lt{'sa'}.'</a></span>';
+            }
         }
+        $line.='</td>';
     }
-    $line.='</td><td><span class="LC_nobreak">';
+    $line .= '<td><span class="LC_nobreak">';
     my ($link,$nolink);
     if (($url=~m{/adm/(coursedocs|supplemental)}) || (!$allowed && $url)) {
         if ($allowed && !$env{'request.role.adv'} && !$isfolder && !$ispage) {