--- loncom/auth/lonacc.pm 2003/11/01 16:37:21 1.49 +++ loncom/auth/lonacc.pm 2004/11/11 22:18:23 1.52 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.49 2003/11/01 16:37:21 www Exp $ +# $Id: lonacc.pm,v 1.52 2004/11/11 22:18:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -70,7 +70,7 @@ sub handler { # -------------------------------------------------------------- Resource State - if ($requrl=~/^\/res\//) { + if ($requrl=~/^\/+(res|uploaded)\//) { $ENV{'request.state'} = "published"; } else { $ENV{'request.state'} = 'unknown'; @@ -118,8 +118,12 @@ sub handler { } if ($ENV{'form.symb'}) { $symb=&Apache::lonnet::symbclean($ENV{'form.symb'}); - if (&Apache::lonnet::symbverify($symb,$requrl)) { - my ($map,$mid,$murl)=split(/\_\_\_/,$symb); + if ($requrl =~ m|^/adm/wrapper/|) { + my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); + &Apache::lonnet::symblist($map,$murl => $mid, + 'last_known' => $murl); + } elsif (&Apache::lonnet::symbverify($symb,$requrl)) { + my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); &Apache::lonnet::symblist($map,$murl => $mid, 'last_known' => $murl); } else {