![[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.28, 2003/05/13 00:52:46 | version 1.29, 2003/06/11 00:39:46 |
|---|---|
| Line 55 sub constructaccess { | Line 55 sub constructaccess { |
| } | } |
| my $capriv='user.priv.ca./'. | my $capriv='user.priv.ca./'. |
| $ownerdomain.'/'.$ownername.'./'. | $ownerdomain.'/'.$ownername.'./'; |
| $ownerdomain.'/'.$ownername; | |
| foreach (keys %ENV) { | foreach (keys %ENV) { |
| if ($_ eq $capriv) { | if ($_ eq $capriv) { |
| return ($ownername,$ownerdomain); | return ($ownername,$ownerdomain); |
| } | } |
| } | } |
| return ''; | return ''; |
| } | } |