--- loncom/auth/lonacc.pm 2001/01/06 16:12:24 1.16 +++ loncom/auth/lonacc.pm 2001/08/12 01:18:37 1.20 @@ -2,7 +2,8 @@ # Cookie Based Access Handler # 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,06/01 Gerd Kortemeyer +# 12/25,12/26, +# 01/06/01,05/28,8/11 Gerd Kortemeyer package Apache::lonacc; @@ -41,17 +42,12 @@ sub handler { $ENV{$envname} = $envvalue; } $ENV{'user.environment'} = "$lonidsdir/$handle.id"; - $ENV{'request.state'} = "published"; - $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; + if ($requrl=~/^\/res\//) { + $ENV{'request.state'} = "published"; } else { - $ENV{'HTTP_REFERER'}=$ENV{'httpref.'.$requrl}; - } + $ENV{'request.state'} = 'unknown'; + } + $ENV{'request.filename'} = $r->filename; # -------------------------------------------------------- Load POST parameters