--- loncom/auth/londatecheck.pm 2006/04/13 21:02:34 1.12 +++ loncom/auth/londatecheck.pm 2017/12/22 02:00:53 1.14 @@ -1,5 +1,5 @@ # Checks contentopen/close settings disable subsequent PerlHandlers if not open -# $Id: londatecheck.pm,v 1.12 2006/04/13 21:02:34 albertel Exp $ +# $Id: londatecheck.pm,v 1.14 2017/12/22 02:00:53 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,14 +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('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('Not open to be viewed').'

'. &mt("This resource is no longer available to be viewed.")); } return ('OPEN',$open,$close); @@ -55,6 +55,10 @@ sub handler { if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') { 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(); if ($status ne 'OPEN') { $r->set_handlers('PerlHandler'=>undef);