--- loncom/auth/lonacc.pm	2001/08/11 21:05:42	1.19
+++ loncom/auth/lonacc.pm	2001/08/12 01:18:37	1.20
@@ -49,28 +49,6 @@ sub handler {
             }
             $ENV{'request.filename'} = $r->filename;
 
-# --------------------- Figure out referer, first from HTTP_REFERER, then cache
-
-            my $referer='';
-            if ($referer=$r->header_in('Referer')) {
-               $ENV{'HTTP_REFERER'}=$referer;
-	    } else {
-	       $ENV{'HTTP_REFERER'}=$ENV{'httpref.'.$requrl};
-	    }
-
-# ------------------------------------------- Still no referer? Check wildcards
-            unless ($ENV{'HTTP_REFERER'}) {
-                map {
-		    if ($_=~/^httpref\..*\*/) {
-			my $pattern=$_;
-                        $pattern=~s/\*/\[\^\/\]\+/g;
-                        $pattern=~s/\//\\\//g;
-                        if ($requrl=~/$pattern/) {
-			    $ENV{'HTTP_REFERER'}=$ENV{$_};
-                        }
-                    }
-                } keys %ENV;
-            }
 # -------------------------------------------------------- Load POST parameters