--- loncom/auth/loncacc.pm 2003/05/13 00:52:46 1.28 +++ loncom/auth/loncacc.pm 2003/06/11 00:39:46 1.29 @@ -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.28 2003/05/13 00:52:46 www Exp $ +# $Id: loncacc.pm,v 1.29 2003/06/11 00:39:46 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -55,14 +55,12 @@ sub constructaccess { } my $capriv='user.priv.ca./'. - $ownerdomain.'/'.$ownername.'./'. - $ownerdomain.'/'.$ownername; + $ownerdomain.'/'.$ownername.'./'; foreach (keys %ENV) { if ($_ eq $capriv) { return ($ownername,$ownerdomain); } } - return ''; }