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

[raeburn]

raeburn		Mon Dec 15 02:58:27 2025 EDT

  Modified files:              
    /loncom/interface	lonaboutme.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/lonaboutme.pm
diff -u loncom/interface/lonaboutme.pm:1.172 loncom/interface/lonaboutme.pm:1.173
--- loncom/interface/lonaboutme.pm:1.172	Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonaboutme.pm	Mon Dec 15 02:58:27 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Personal Information Page
 #
-# $Id: lonaboutme.pm,v 1.172 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonaboutme.pm,v 1.173 2025/12/15 02:58:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -563,7 +563,7 @@
         }
         $output = &Apache::loncommon::start_page('Viewable group portfolio files',undef,$args).
                   "\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
-                  '<h3>'.&mt('Group Portfolio files').'</h3>';
+                  '<h2 class="LC_heading_2">'.&mt('Group Portfolio files').'</h2>';
     } else {
         if ($env{'request.course.id'} && $env{'form.register'}) {
             $args->{force_register} = $env{'form.register'};
@@ -583,7 +583,7 @@
             &Apache::loncommon::start_page('Viewable portfolio files',
                                            undef,$args).
             "\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
-            '<h3>'.&mt('Portfolio files for [_1]',$name).'</h3>';
+            '<h2 class=LC_heading_2">'.&mt('Portfolio files for [_1]',$name).'</h2>';
     }
     $r->print($output);
     return;
@@ -604,8 +604,9 @@
     }
 
     my $output = '<form action="'.&HTML::Entities::encode($r->uri,'<>&"')
-        .'" name="displaystatus" method="post">'.
-        &mt('File access type: ').'<select name="portaccess">';
+        .'" name="displaystatus" method="post">'
+        .'<label for="portaccess">'.&mt('File access type').': '
+        .'<select name="portaccess" id="portaccess">';
     foreach my $type ('withoutpass','withpass','both') {
         $output .= '<option value="'.$type.'" ';
         if ($portaccess eq $type) {
@@ -751,7 +752,11 @@
     my $output;
     if ($mode eq 'listfiles') {
         if ($filecounts->{'both'} > 0) {
-            $output = &Apache::loncommon::start_data_table();
+            $output = &Apache::loncommon::start_data_table().
+                      &Apache::loncommon::start_data_table_header_row('LC_visually_hidden').
+                      '<th>'.&mt('File or Folder').'</th>'.
+                      '<th>'.&mt('Metadata').'</th>'.
+                      &Apache::loncommon::end_data_table_row()."\n";
             $output .= &parse_directory($r,0,$allfileshash,'',$is_course,
                                         $group);
             $output .= &Apache::loncommon::end_data_table();