Return to loncacc.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.38, 2005/04/07 06:56:21 | version 1.39, 2005/06/19 00:41:32 |
---|---|
Line 60 sub constructaccess { | Line 60 sub constructaccess { |
return ($ownername,$domain); | return ($ownername,$domain); |
} | } |
} | } |
my $aapriv='user.priv.aa./'.$domain.'/'.$ownername.'./'; | |
foreach (keys %env) { | |
if ($_ eq $aapriv) { | |
return ($ownername,$domain); | |
} | |
} | |
} | } |
return ''; | return ''; |
} | } |