loncom/interface/lonsearchcourse.pm - diff

Return to lonsearchcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.5, 2020/09/22 11:23:08
+version 1.6, 2020/09/22 12:19:15
  Line 329  sub handler {
      }
      $r->print(&Apache::lonhtmlcommon::breadcrumbs("$crstype Search"));
      &Apache::lonnavdisplay::startContentScreen($r,'coursesearch');
-     if ($env{'form.phase'} eq 'results') {
+     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
-        &course_search($r);
+     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+     my ($blocked,$blocktext) =
+         &Apache::loncommon::blocking_status('search',$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);
+     } elsif ($env{'form.phase'} eq 'results') {
+         &course_search($r);
      } else {
-        $r->print(&menu());
+         $r->print(&menu());
      }
      &Apache::lonnavdisplay::endContentScreen($r);
      $r->print(&Apache::loncommon::end_page());