version 1.1, 2008/09/05 17:43:31
|
version 1.2, 2017/12/22 02:00:53
|
Line 51 sub handler {
|
Line 51 sub handler {
|
if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') { |
if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') { |
return DECLINED; |
return DECLINED; |
} |
} |
|
if (($r->uri =~ /ext\.tool$/) && |
|
(&Apache::lonnet::EXT('resource.0.gradable',$env{'request.symb'}) =~ /^yes$/i)) { |
|
return DECLINED; |
|
} |
my ($status,$msg)=&ip_access_check(); |
my ($status,$msg)=&ip_access_check(); |
if ($status ne 'OPEN') { |
if ($status ne 'OPEN') { |
$r->set_handlers('PerlHandler'=>undef); |
$r->set_handlers('PerlHandler'=>undef); |