[LON-CAPA-cvs] cvs: loncom /auth londatecheck.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 25 Apr 2005 21:21:17 -0000


albertel		Mon Apr 25 17:21:17 2005 EDT

  Modified files:              
    /loncom/auth	londatecheck.pm 
  Log:
  - this works on both mod_perl 1.X and mod_perl 2.X
  
  
Index: loncom/auth/londatecheck.pm
diff -u loncom/auth/londatecheck.pm:1.8 loncom/auth/londatecheck.pm:1.9
--- loncom/auth/londatecheck.pm:1.8	Thu Apr  7 02:56:21 2005
+++ loncom/auth/londatecheck.pm	Mon Apr 25 17:21:17 2005
@@ -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 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 @@
 
 	$r->print($msg);
 	$r->print('</body></html>');
+	return OK;
     }
-    return OK;
+    return DECLINED;
 }
 1;