version 1.3, 2011/01/17 22:56:27
|
version 1.8, 2024/02/11 20:32:42
|
Line 41 use Apache::lonlocal;
|
Line 41 use Apache::lonlocal;
|
use LONCAPA::lonmetadata(); |
use LONCAPA::lonmetadata(); |
use HTML::Entities(); |
use HTML::Entities(); |
use Apache::lonnavmaps; |
use Apache::lonnavmaps; |
use Apache::londocs(); |
use Apache::lonnavdisplay(); |
use Apache::lonindexer(); |
use Apache::lonindexer(); |
use LONCAPA; |
use LONCAPA; |
|
|
Line 261 sub checkonthis {
|
Line 261 sub checkonthis {
|
} |
} |
my $href=$url; |
my $href=$url; |
if ($hash{'encrypted_'.$id} && !$env{'request.role.adv'}) { |
if ($hash{'encrypted_'.$id} && !$env{'request.role.adv'}) { |
$href=&Apache::lonenc::encrypted($href) |
$href=&Apache::lonenc::encrypted($href); |
.'?symb='.&Apache::lonenc::encrypted($symb); |
if ($href =~ /\.sequence$/) { |
|
$href .= '?navmap=1'; |
|
} else { |
|
$href .= '?symb='.&Apache::lonenc::encrypted($symb); |
|
} |
} else { |
} else { |
$href.='?symb='.&escape($symb); |
if ($href =~ /\.sequence$/) { |
|
$href .= '?navmap=1'; |
|
} else { |
|
$href .= '?symb='.&escape($symb); |
|
} |
} |
} |
$r->print('<a href="'.$href.'" target="cat">'.($title?$title:$url). |
$r->print('<a href="'.$href.'" target="cat">'.($title?$title:$url). |
'</a><br />'); |
'</a><br />'); |
Line 311 sub handler {
|
Line 319 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['phase']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['phase']); |
$r->print(&Apache::loncommon::start_page("$crstype Search")); |
$r->print(&Apache::loncommon::start_page("$crstype Search")); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
if ($env{'request.course.id'} eq '') { |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs("$crstype Search")); |
|
$r->print(&Apache::loncommon::end_page()); |
|
my $requrl = $r->uri; |
|
$env{'user.error.msg'} = "$requrl:bre:0:0:Course not initialized"; |
|
$env{'user.reinit'} = 1; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
&Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/searchcourse', |
{ href => '/adm/searchcourse', |
text => "$crstype Search"}); |
text => "$crstype Search"}); |
Line 320 sub handler {
|
Line 336 sub handler {
|
text => 'Search Results'}); |
text => 'Search Results'}); |
} |
} |
$r->print(&Apache::lonhtmlcommon::breadcrumbs("$crstype Search")); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs("$crstype Search")); |
&Apache::londocs::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 $clientip = &Apache::lonnet::get_requestor_ip($r); |
|
my ($blocked,$blocktext) = |
|
&Apache::loncommon::blocking_status('search',$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); |
|
} elsif ($env{'form.phase'} eq 'results') { |
|
&course_search($r); |
} else { |
} else { |
$r->print(&menu()); |
$r->print(&menu()); |
} |
} |
&Apache::londocs::endContentScreen($r); |
&Apache::lonnavdisplay::endContentScreen($r); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |