/[Arh]/lib/Arh/Model/Chronology.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/Chronology.pm

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

revision 12 by dpavlin, Thu Nov 29 17:17:16 2007 UTC revision 13 by dpavlin, Fri Nov 30 00:03:15 2007 UTC
# Line 31  use Arh::Record schema { Line 31  use Arh::Record schema {
31    
32  sub since { '0.0.3' }  sub since { '0.0.3' }
33    
34  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;  
 }  
35    
36  1;  1;
37    
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26