--- loncom/auth/lonacc.pm	2001/08/11 21:05:42	1.19
+++ loncom/auth/lonacc.pm	2001/11/29 19:12:44	1.22
@@ -1,9 +1,34 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
+#
+# $Id: lonacc.pm,v 1.22 2001/11/29 19:12:44 www Exp $
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
 # 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11,
 # 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30,11/6,
 # 12/25,12/26,
-# 01/06/01,05/28,8/11 Gerd Kortemeyer
+# 01/06/01,05/28,8/11,9/26 Gerd Kortemeyer
 
 package Apache::lonacc;
 
@@ -49,28 +74,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
 
 
@@ -159,8 +162,18 @@ sub handler {
         };
     }
 
+# -------------------------------------------- See if this is a public resource
+    if (&Apache::lonnet::metadata($requrl,'copyright') eq 'public') {
+        &Apache::lonnet::logthis('Granting public access: '.$requrl);
+	$ENV{'user.name'}='public';
+        $ENV{'user.domain'}='public';
+        $ENV{'request.state'} = "published";
+        $ENV{'request.publicaccess'} = 1;
+        $ENV{'request.filename'} = $r->filename;
+        return OK;
+    }
 # ----------------------------------------------- Store where they wanted to go
-
+    
     $ENV{'request.firsturl'}=$requrl;
     return FORBIDDEN;
 }