version 1.13, 2012/04/11 11:40:07
|
version 1.14, 2017/12/22 02:00:53
|
Line 55 sub handler {
|
Line 55 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,$open,$close,$msg)=&content_date_check(); |
my ($status,$open,$close,$msg)=&content_date_check(); |
if ($status ne 'OPEN') { |
if ($status ne 'OPEN') { |
$r->set_handlers('PerlHandler'=>undef); |
$r->set_handlers('PerlHandler'=>undef); |