--- loncom/interface/lonindexcourse.pm	2024/02/12 04:04:06	1.4
+++ 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.4 2024/02/12 04:04:06 raeburn Exp $
+# $Id: lonindexcourse.pm,v 1.7 2025/02/26 23:46:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -93,21 +93,24 @@ sub course_index {
 # Output
     $r->print(&Apache::loncommon::start_data_table());
     my $currentchar='';
+    my $colheader = '<span class="LC_visually_hidden">'.&mt('Resource(s)').'</span>&nbsp;';
+    &Apache::loncommon::set_data_table_count(1);
     foreach my $lword (sort(keys(%indexhash))) {
        unless ($lword=~/\w/) { next; }
        if ($lword=~/^\d+$/) { next; }
        my $firstchar=substr($lword,0,1);
        if ($currentchar ne $firstchar) {
           $r->print(&Apache::loncommon::start_data_table_header_row().
-                    '<th>'.$firstchar.'</th><th>&nbsp;</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::start_data_table_row()."<td>$lword</td><td>");
+       $r->print("\n".&Apache::loncommon::continue_data_table_row()."<td>$lword</td><td>");
        foreach my $href (split(/\,/,$indexhash{$lword})) {
            unless ($href) { next; }
            $r->print(' &nbsp; <a href="'.$href.'">'.$indextitles{$href}.'</a>');
        }
-       $r->print("</td>".&Apache::loncommon::start_data_table_row());
+       $r->print('</td>'.&Apache::loncommon::end_data_table_row());
     }
     $r->print(&Apache::loncommon::end_data_table());
 }
@@ -171,7 +174,26 @@ sub handler {
                 text => "$crstype Index"});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs("$crstype Index"));
     &Apache::lonnavdisplay::startContentScreen($r,'courseindex');
-    &course_index($r);
+    my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+    my $clientip = &Apache::lonnet::get_requestor_ip($r);
+    my ($blocked,$blocktext) =
+        &Apache::loncommon::blocking_status('index',$clientip,$cnum,$cdom);
+    if ($blocked) {
+        my $checkrole = "cm./$cdom/$cnum";
+        if ($env{'request.course.sec'} ne '') {
+            $checkrole .= "/$env{'request.course.sec'}";
+        }
+        if ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
+            ($env{'request.role'} !~ m{^st\./$cdom/$cnum})) {
+            undef($blocked);
+        }
+    }
+    if ($blocked) {
+        $r->print($blocktext);
+    } else {
+        &course_index($r);
+    }
     &Apache::lonnavdisplay::endContentScreen($r);
     $r->print(&Apache::loncommon::end_page());
     return OK;