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

[raeburn]

raeburn		Sat Jul 22 19:10:45 2006 EDT

  Modified files:              
    /loncom/auth	restrictedaccess.pm 
  Log:
  The second argument in $r->set_handlers() needs to be an array reference. Also need to use $r->handler('perl-script') to ensure the Perl Handler is actually used.
  
  
Index: loncom/auth/restrictedaccess.pm
diff -u loncom/auth/restrictedaccess.pm:1.5 loncom/auth/restrictedaccess.pm:1.6
--- loncom/auth/restrictedaccess.pm:1.5	Fri Jul 21 15:42:12 2006
+++ loncom/auth/restrictedaccess.pm	Sat Jul 22 19:10:45 2006
@@ -73,8 +73,8 @@
 sub setup_handler {
     my ($r) = @_;
     $r->set_handlers('PerlHandler'=> 
-		     \&Apache::restrictedaccess::handler);
-    $r->content_type('perl-script');		    
+		     [\&Apache::restrictedaccess::handler]);
+    $r->handler('perl-script');		    
 }
 
 sub print_entryform {