loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.39, 2005/06/19 00:41:32
+version 1.40, 2005/07/12 07:00:28
  Line 54  sub constructaccess {
      }
      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);
- 	    }
- 	}
- 	my $aapriv='user.priv.aa./'.$domain.'/'.$ownername.'./';
- 	foreach (keys %env) {
- 	    if ($_ eq $aapriv) {
- 		return ($ownername,$domain);
- 	    }
  	}
      }
      return '';