--- loncom/auth/lonacc.pm 2003/05/13 00:52:46 1.46 +++ loncom/auth/lonacc.pm 2003/11/21 21:27:25 1.50 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.46 2003/05/13 00:52:46 www Exp $ +# $Id: lonacc.pm,v 1.50 2003/11/21 21:27:25 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,6 +44,7 @@ use Apache::Constants qw(:common :http : use Apache::File; use Apache::lonnet; use Apache::loncommon(); +use Apache::lonlocal; use CGI::Cookie(); use Fcntl qw(:flock); @@ -63,6 +64,10 @@ sub handler { &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); +# --------------------------------------------------------- Initialize Language + + &Apache::lonlocal::get_language_handle($r); + # -------------------------------------------------------------- Resource State if ($requrl=~/^\/res\//) { @@ -71,7 +76,7 @@ sub handler { $ENV{'request.state'} = 'unknown'; } $ENV{'request.filename'} = $r->filename; - + $ENV{'request.noversionuri'} = &Apache::lonnet::deversion($requrl); # -------------------------------------------------------- Load POST parameters &Apache::loncommon::get_posted_cgi($r); @@ -114,7 +119,7 @@ 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); + my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); &Apache::lonnet::symblist($map,$murl => $mid, 'last_known' => $murl); } else {