61 |
|
|
62 |
my ($action,$item,$name) = @_; |
my ($action,$item,$name) = @_; |
63 |
|
|
64 |
|
# warn "$action | $item | $name "; |
65 |
|
|
66 |
# prevent deep recursion for next rule |
# prevent deep recursion for next rule |
67 |
if ( $action && $item && $name && |
if ( $action && $item && $name && |
68 |
$action eq 'read' && $item eq 'column' && ( $name eq 'owner' || $name eq 'visible' ) |
$action eq 'read' && $item eq 'column' && ( $name eq 'owner' || $name eq 'visible' ) |
74 |
return 1; |
return 1; |
75 |
}; |
}; |
76 |
|
|
77 |
return 1 if ( $self->visible && self->current_user->role('edit')); |
return 1 if ( $self->visible && $self->current_user->role('edit')); |
78 |
|
return 1 if ( $action eq 'create' && $self->current_user->role('edit')); |
79 |
|
|
80 |
return 1 if ( $self->current_user->is_superuser ); |
return 1 if ( $self->current_user->is_superuser ); |
81 |
|
|