/[Arh]/lib/Arh/Model/UnitMaterial.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Arh/Model/UnitMaterial.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 10 by dpavlin, Thu Nov 29 17:17:16 2007 UTC revision 11 by dpavlin, Thu Nov 29 19:04:56 2007 UTC
# Line 21  use Arh::Record schema { Line 21  use Arh::Record schema {
21    
22  sub current_user_can {  sub current_user_can {
23          my ( $self, $action,$item,$name ) = @_;          my ( $self, $action,$item,$name ) = @_;
24          return 1 if $self->current_user->superuser || $self->current_user->administrator;          return 1 if $self->current_user->administrator;
25          return 1 if $self->current_user->id && $action eq 'read';          return 1 if $self->current_user->superuser;
26            return 1 if $action eq 'read';
27      return 0;      return 0;
28  }  }
29    
Legend:
Removed from v.10  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26