--- loncom/auth/loncacc.pm 2005/04/07 06:56:21 1.38 +++ loncom/auth/loncacc.pm 2005/06/19 00:41:32 1.39 @@ -2,7 +2,7 @@ # Cookie Based Access Handler for Construction Area # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer) # -# $Id: loncacc.pm,v 1.38 2005/04/07 06:56:21 albertel Exp $ +# $Id: loncacc.pm,v 1.39 2005/06/19 00:41:32 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -60,6 +60,12 @@ sub constructaccess { return ($ownername,$domain); } } + my $aapriv='user.priv.aa./'.$domain.'/'.$ownername.'./'; + foreach (keys %env) { + if ($_ eq $aapriv) { + return ($ownername,$domain); + } + } } return ''; }