Parent Directory
|
Revision Log
|
Patch
revision 10 by dpavlin, Thu Nov 29 17:17:16 2007 UTC | revision 13 by dpavlin, Fri Nov 30 00:03:15 2007 UTC | |
---|---|---|
# | Line 17 use Arh::Record schema { | Line 17 use Arh::Record schema { |
17 | ||
18 | # Your model-specific methods go here. | # Your model-specific methods go here. |
19 | ||
20 | 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; | ||
} | ||
21 | ||
22 | 1; | 1; |
23 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |