97 |
|
|
98 |
#Carp::confess if ($right eq 'read' and not $args{'column'}); |
#Carp::confess if ($right eq 'read' and not $args{'column'}); |
99 |
|
|
100 |
if ( $right eq 'read' |
if ( $self->id == $self->current_user->id or $self->current_user->admin or $self->current_user->can_import ) { |
|
and ( $self->id == $self->current_user->id or $self->current_user->admin or $self->current_user->can_import ) ) |
|
|
{ |
|
101 |
return 1; |
return 1; |
102 |
} elsif ( $right eq 'read' and $args{'column'} eq 'name' ) { |
# } elsif ( $right eq 'read' and $args{'column'} eq 'name' ) { |
103 |
return (1); |
# return 1; |
|
|
|
|
} elsif ( |
|
|
$right eq 'update' and |
|
|
( $self->id == $self->current_user->id or $self->current_user->admin ) |
|
|
) { |
|
|
return (1); |
|
104 |
} |
} |
105 |
|
|
106 |
return $self->SUPER::current_user_can( $right, %args ); |
return $self->SUPER::current_user_can( $right, %args ); |