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

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

revision 9 by dpavlin, Thu Nov 29 16:40:10 2007 UTC revision 11 by dpavlin, Thu Nov 29 19:04:56 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
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 =>
# Line 17  use Arh::Record schema { Line 19  use Arh::Record schema {
19                  is mandatory;                  is mandatory;
20    
21          column campaign =>          column campaign =>
22                    label is _("Part of campaign"),
23                  refers_to Arh::Model::Campaign,                  refers_to Arh::Model::Campaign,
24                  is mandatory,                  is mandatory,
25                  since '0.0.9';                  since '0.0.9';
# Line 45  use Arh::Record schema { Line 48  use Arh::Record schema {
48    
49  };  };
50    
51    #use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
52    
53  # Your model-specific methods go here.  # Your model-specific methods go here.
54    
55  sub material {  sub material {
# Line 54  sub material { Line 59  sub material {
59          return $m;          return $m;
60  }  }
61    
62    sub current_user_can {
63            my ( $self, $action,$item,$value ) = @_;
64            warn "## |$action|$item|$value| user id: ",$self->current_user->id;
65            return 1 if $self->current_user->superuser;
66            return 1 if $self->current_user->administrator;
67            return 1 if $action eq 'read';
68        return 0;
69    }
70    
71  1;  1;
72    
Legend:
Removed from v.9  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26