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

[albertel]

albertel		Mon Dec 11 13:59:21 2006 EDT

  Modified files:              
    /loncom/auth	blockedaccess.pm 
  Log:
  - style
  
  
Index: loncom/auth/blockedaccess.pm
diff -u loncom/auth/blockedaccess.pm:1.1 loncom/auth/blockedaccess.pm:1.2
--- loncom/auth/blockedaccess.pm:1.1	Mon Dec 11 09:06:04 2006
+++ loncom/auth/blockedaccess.pm	Mon Dec 11 13:59:21 2006
@@ -27,7 +27,6 @@
 package Apache::blockedaccess;
 
 use strict;
-use lib '/home/httpd/lib/perl/';
 use Apache::Constants qw(:common :http REDIRECT);
 use Apache::lonnet;
 use Apache::loncommon();
@@ -37,7 +36,7 @@
     my $r = shift;
     my $origurl = $r->uri;
     my ($type,$udom,$uname,$file_name,$group) = 
-             &Apache::lonnet::parse_portfolio_url($origurl);
+	&Apache::lonnet::parse_portfolio_url($origurl);
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     return OK if $r->header_only;