--- loncom/auth/londatecheck.pm 2005/04/07 06:56:21 1.8 +++ loncom/auth/londatecheck.pm 2012/04/11 11:40:07 1.13 @@ -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.13 2012/04/11 11:40:07 goltermann Exp $ # # Copyright Michigan State University Board of Trustees # @@ -28,6 +28,7 @@ use strict; package Apache::londatecheck; use Apache::lonnet; use Apache::lonlocal; +use Apache::loncommon(); use Apache::Constants qw(:common :http :methods); sub content_date_check { @@ -36,12 +37,14 @@ sub content_date_check { my $close=&Apache::lonnet::EXT('resource.0.contentclose',$symb); if ( (defined($open) && $open ne '' && time < $open) ) { return ('CLOSED',$open,$close, + '
'.&mt('Not open to be viewed').'
'. &mt("This resource currently isn't open. ". "It will be available at [_1].", &Apache::lonlocal::locallocaltime($open))); } if ( (defined($close) && $close ne '' && time > $close) ) { return ('CLOSED',$open,$close, + ''.&mt('Not open to be viewed').'
'. &mt("This resource is no longer available to be viewed.")); } return ('OPEN',$open,$close); @@ -50,7 +53,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') { @@ -58,17 +61,16 @@ sub handler { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; - $r->print('