loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.38, 2005/04/07 06:56:21	version 1.40, 2005/07/12 07:00:28
Line 54 sub constructaccess {	Line 54 sub constructaccess {
}	}

foreach my $domain (@possibledomains) {	foreach my $domain (@possibledomains) {
my $capriv='user.priv.ca./'.$domain.'/'.$ownername.'./';	if (exists($env{'user.priv.ca./'.$domain.'/'.$ownername.'./'}) \|\|
foreach (keys %env) {	exists($env{'user.priv.aa./'.$domain.'/'.$ownername.'./'}) ) {
if ($_ eq $capriv) {	return ($ownername,$domain);
return ($ownername,$domain);
}
}	}
}	}
return '';	return '';