--- loncom/auth/lonacc.pm 2005/02/08 01:20:11 1.62 +++ loncom/auth/lonacc.pm 2005/03/01 00:22:57 1.63 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.62 2005/02/08 01:20:11 albertel Exp $ +# $Id: lonacc.pm,v 1.63 2005/03/01 00:22:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -121,14 +121,14 @@ sub handler { $symb=&Apache::lonnet::symbclean($ENV{'form.symb'}); if ($requrl =~ m|^/adm/wrapper/|) { my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); - &Apache::lonnet::symblist($map,$murl => $mid, - 'last_known' => $murl); + &Apache::lonnet::symblist($map,$murl => [$murl,$mid], + 'last_known' =>[$murl,$mid]); } elsif ((&Apache::lonnet::symbverify($symb,$requrl)) || (($requrl=~m|(.*)/smpedit$|) && &Apache::lonnet::symbverify($symb,$1))) { my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); - &Apache::lonnet::symblist($map,$murl => $mid, - 'last_known' => $murl); + &Apache::lonnet::symblist($map,$murl => [$murl,$mid], + 'last_known' =>[$murl,$mid]); } else { $r->log_reason('Invalid symb for '.$requrl.': '. $symb); @@ -147,8 +147,8 @@ sub handler { } if ($symb) { my ($map,$mid,$murl)=split(/\_\_\_/,$symb); - &Apache::lonnet::symblist($map,$murl => $mid, - 'last_known' => $murl); + &Apache::lonnet::symblist($map,$murl =>[$murl,$mid], + 'last_known' =>[$murl,$mid]); } } $ENV{'request.symb'}=$symb;