Changeset 474


Ignore:
Timestamp:
10/03/09 15:24:12 (15 years ago)
Author:
nanardon
Message:
  • fix acls parsing
Location:
LATMOS-Accounts/lib/LATMOS/Accounts
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm

    r421 r474  
    210210        } elsif (lc($u->{user}) eq '@anonymous' && $who eq "") { 
    211211            return $u->{$perm} || 0; 
    212         } else { 
    213             return 
    214212        } 
    215213    } 
     214    return; 
    216215} 
    217216 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

    r470 r474  
    465465        my $res = $self->{_acls}->check($obj, $attr, $perm, $who, $groups); 
    466466        $self->log(LA_NOTICE, 'permission denied for "%s" to get %s.%s for %s', 
    467            $who, $obj, $attr, $perm) if (!$res); 
     467           $who, ref $obj ? $obj->id . '(' . $obj->type . ')' : $obj, $attr, $perm) if (!$res); 
    468468        return $res; 
    469469    } else { 
Note: See TracChangeset for help on using the changeset viewer.