--- loncom/auth/londatecheck.pm	2004/08/23 19:16:53	1.6
+++ loncom/auth/londatecheck.pm	2004/08/23 19:34:00	1.7
@@ -1,5 +1,5 @@
 # Checks contentopen/close settings disable subsequent PerlHandlers if not open
-# $Id: londatecheck.pm,v 1.6 2004/08/23 19:16:53 albertel Exp $
+# $Id: londatecheck.pm,v 1.7 2004/08/23 19:34:00 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,7 +49,7 @@ sub content_date_check {
 
 sub handler {
     my ($r)=@_;
-    if (&Apache::lonnet::allowed('bre',$ENV{'request.filename'}) eq 'F') {
+    if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') {
 	return OK;
     }
     my ($status,$open,$close,$msg)=&content_date_check();