--- loncom/auth/londatecheck.pm 2005/04/07 06:56:21 1.8 +++ loncom/auth/londatecheck.pm 2005/04/25 21:21:17 1.9 @@ -1,5 +1,5 @@ # Checks contentopen/close settings disable subsequent PerlHandlers if not open -# $Id: londatecheck.pm,v 1.8 2005/04/07 06:56:21 albertel Exp $ +# $Id: londatecheck.pm,v 1.9 2005/04/25 21:21:17 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -50,7 +50,7 @@ sub content_date_check { sub handler { my ($r)=@_; if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') { - return OK; + return DECLINED; } my ($status,$open,$close,$msg)=&content_date_check(); if ($status ne 'OPEN') { @@ -68,7 +68,8 @@ sub handler { $r->print($msg); $r->print(''); + return OK; } - return OK; + return DECLINED; } 1;