--- loncom/interface/lonindexcourse.pm 2025/02/26 23:04:40 1.6 +++ loncom/interface/lonindexcourse.pm 2025/02/26 23:46:22 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Index Course # -# $Id: lonindexcourse.pm,v 1.6 2025/02/26 23:04:40 raeburn Exp $ +# $Id: lonindexcourse.pm,v 1.7 2025/02/26 23:46:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -93,6 +93,7 @@ sub course_index { # Output $r->print(&Apache::loncommon::start_data_table()); my $currentchar=''; + my $colheader = '<span class="LC_visually_hidden">'.&mt('Resource(s)').'</span> '; &Apache::loncommon::set_data_table_count(1); foreach my $lword (sort(keys(%indexhash))) { unless ($lword=~/\w/) { next; } @@ -100,7 +101,8 @@ sub course_index { my $firstchar=substr($lword,0,1); if ($currentchar ne $firstchar) { $r->print(&Apache::loncommon::start_data_table_header_row(). - '<th>'.$firstchar.'</th><th> </th>'.&Apache::loncommon::end_data_table_header_row()); + '<th>'.$firstchar.'</th><th>'.$colheader.'</th>'. + &Apache::loncommon::end_data_table_header_row()."\n"); $currentchar=$firstchar; } $r->print("\n".&Apache::loncommon::continue_data_table_row()."<td>$lword</td><td>"); @@ -108,7 +110,7 @@ sub course_index { unless ($href) { next; } $r->print(' <a href="'.$href.'">'.$indextitles{$href}.'</a>'); } - $r->print("</td>".&Apache::loncommon::end_data_table_row()); + $r->print('</td>'.&Apache::loncommon::end_data_table_row()); } $r->print(&Apache::loncommon::end_data_table()); }