--- loncom/auth/loncacc.pm 2000/09/25 20:34:28 1.9 +++ loncom/auth/loncacc.pm 2000/11/23 11:44:55 1.11 @@ -2,7 +2,7 @@ # Cookie Based Access Handler for Construction Area # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer) # 6/15,16/11,22/11, -# 01/06,01/11,6/1,9/25 Gerd Kortemeyer +# 01/06,01/11,6/1,9/25,9/28,11/22 Gerd Kortemeyer package Apache::loncacc; @@ -23,7 +23,7 @@ sub handler { my $lonidsdir=$r->dir_config('lonIDsDir'); if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { my $ownername=$requrl; - $ownername=~s/\/\~(\w+).*/\1/; + $ownername=~s/\/(?:\~|priv\/)(\w+).*/\1/; my $ownerdomain=$r->dir_config('lonDefDomain'); my @handleparts=split(/\_/,$handle); my $username=$handleparts[0]; @@ -60,6 +60,8 @@ sub handler { my ($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; + $name =~ tr/+/ /; + $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $ENV{"form.$name"}=$value; }