--- lib/Arh/Model/Unit.pm 2007/11/29 17:17:16 10 +++ lib/Arh/Model/Unit.pm 2007/11/29 19:04:56 11 @@ -4,6 +4,8 @@ package Arh::Model::Unit; use Jifty::DBI::Schema; +use Data::Dump qw/dump/; + use Arh::Record schema { column name => @@ -58,9 +60,11 @@ } sub current_user_can { - my ( $self, $action,$item,$name ) = @_; - return 1 if $self->current_user->superuser || $self->current_user->administrator; - return 1 if $self->current_user->id && $action eq 'read'; + my ( $self, $action,$item,$value ) = @_; + warn "## |$action|$item|$value| user id: ",$self->current_user->id; + return 1 if $self->current_user->superuser; + return 1 if $self->current_user->administrator; + return 1 if $action eq 'read'; return 0; }