![[BACK]](/icons/back.gif){kind=icon}
Return to loncacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
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 ''; |
| } | } |