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

[raeburn]

raeburn		Tue Jan  6 17:19:34 2026 EDT

  Modified files:              
    /loncom/interface	lonviewclasslist.pm 
  Log:
  - WCAG compliance
    - Include landmark for page's main content to support "Skip to main content"
    - Non-blank value in header for each column in a data table
    - alt attribute for mailto.gif icon
  
  
Index: loncom/interface/lonviewclasslist.pm
diff -u loncom/interface/lonviewclasslist.pm:1.21 loncom/interface/lonviewclasslist.pm:1.22
--- loncom/interface/lonviewclasslist.pm:1.21	Sun Nov  5 19:59:54 2023
+++ loncom/interface/lonviewclasslist.pm	Tue Jan  6 17:19:34 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to display the classlist 
 #
-# $Id: lonviewclasslist.pm,v 1.21 2023/11/05 19:59:54 raeburn Exp $
+# $Id: lonviewclasslist.pm,v 1.22 2026/01/06 17:19:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -90,6 +90,7 @@
     }
     $r->print(<<ENDHEADER);
 $start_page
+<div class="LC_landmark" role="main" id="LC_main_content">
 ENDHEADER
 
     # Get classlist view settings
@@ -199,7 +200,7 @@
     }
     #
     # Finish up
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;
 }
 
@@ -280,7 +281,7 @@
         $Str .= &process_student_prefs($crstype);
     }
 
-    $Str .= '<h2>'.$heading.'</h2>';
+    $Str .= '<h2 class="LC_heading_2">'.$heading.'</h2>';
 
     $cid = $env{'request.course.id'};
     $cdom = $env{'course.'.$cid.'.domain'};
@@ -310,7 +311,7 @@
         %publicroster = &Apache::lonnet::dump('publicroster',$cdom,$cnum);
     }
 
-    $Str .= '<h3>'.$title.'</h3>';
+    $Str .= '<h3 class="LC_heading_3">'.$title.'</h3>';
 
     my $fullcount = 0;
     my $publiccount = 0;
@@ -382,7 +383,7 @@
         } (keys(%$classlist));
     $Str .= '<br />'.&Apache::loncommon::start_data_table()."\n".
             &Apache::loncommon::start_data_table_header_row()."\n".
-        '<th></th>'. # for the count
+        '<th>#</th>'.
         '<th>'.&mt('Name').'</th>'.
         '<th>'.&mt('Username').'</th>';
     if (! $viewsettings->{'limit_to_section'}) {
@@ -411,7 +412,7 @@
                                                       $domain).'</td>'.
             '<td>'.(' 'x2).
             &Apache::loncommon::messagewrapper
-            ('<img src="/adm/lonIcons/mailto.gif" border="0" /> '.
+            ('<img src="/adm/lonIcons/mailto.gif" border="0" alt="'.&mt('mail-to icon').'" /> '.
              $username.':'.$domain,$username,$domain).'</td>';
         if (! $viewsettings->{'limit_to_section'}) {
             $Str .= '<td>'.$section.'</td>';