4 |
package Arh::Model::Unit; |
package Arh::Model::Unit; |
5 |
use Jifty::DBI::Schema; |
use Jifty::DBI::Schema; |
6 |
|
|
7 |
|
use Data::Dump qw/dump/; |
8 |
|
|
9 |
use Arh::Record schema { |
use Arh::Record schema { |
10 |
|
|
11 |
column name => |
column name => |
59 |
return $m; |
return $m; |
60 |
} |
} |
61 |
|
|
62 |
sub current_user_can { |
use Arh::DefaultACL; |
|
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'; |
|
|
return 0; |
|
|
} |
|
63 |
|
|
64 |
1; |
1; |
65 |
|
|