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 ''; |
} | } |