version 1.5, 2020/09/22 11:23:08
|
version 1.6, 2020/09/22 12:19:15
|
Line 329 sub handler {
|
Line 329 sub handler {
|
} |
} |
$r->print(&Apache::lonhtmlcommon::breadcrumbs("$crstype Search")); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs("$crstype Search")); |
&Apache::lonnavdisplay::startContentScreen($r,'coursesearch'); |
&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 { |
} else { |
$r->print(&menu()); |
$r->print(&menu()); |
} |
} |
&Apache::lonnavdisplay::endContentScreen($r); |
&Apache::lonnavdisplay::endContentScreen($r); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |