Arh/Model/Campaign.pm

use strict;
use warnings;

package Arh::Model::Campaign;
use Jifty::DBI::Schema;

use Arh::Record schema {

        column place =>
                refers_to Arh::Model::Place,
                is mandatory,
                is indexed,
                since '0.0.5';

        column name =>
                label is _("Name of campaign"),
                is mandatory;
        
        column date_from =>
                label is _("From date"),
                type is 'date',
                filters are qw( Jifty::DBI::Filter::Date ),
                render as 'date',
                is mandatory;

        column date_to =>
                label is _("To date"),
                type is 'date',
                filters are qw( Jifty::DBI::Filter::Date ),
                render as 'date',
                is mandatory;
        
        column note =>
                label is _("Note"),
                render as 'textarea';

};

#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on

# Your model-specific methods go here.

sub since { '0.0.3' }

sub current_user_can {
        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;
}

1;

1	dpavlin	4	use strict;
2			use warnings;
3
4			package Arh::Model::Campaign;
5			use Jifty::DBI::Schema;
6
7			use Arh::Record schema {
8
9			column place =>
10			refers_to Arh::Model::Place,
11			is mandatory,
12			is indexed,
13			since '0.0.5';
14
15			column name =>
16			label is _("Name of campaign"),
17			is mandatory;
18
19			column date_from =>
20	dpavlin	5	label is _("From date"),
21	dpavlin	4	type is 'date',
22	dpavlin	5	filters are qw( Jifty::DBI::Filter::Date ),
23			render as 'date',
24	dpavlin	4	is mandatory;
25
26			column date_to =>
27	dpavlin	5	label is _("To date"),
28	dpavlin	4	type is 'date',
29	dpavlin	5	filters are qw( Jifty::DBI::Filter::Date ),
30			render as 'date',
31	dpavlin	4	is mandatory;
32
33			column note =>
34			label is _("Note"),
35	dpavlin	5	render as 'textarea';
36	dpavlin	4
37			};
38
39	dpavlin	10	#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
40
41	dpavlin	4	# Your model-specific methods go here.
42
43			sub since { '0.0.3' }
44
45	dpavlin	10	sub current_user_can {
46			my ( $self, $action,$item,$name ) = @_;
47			return 1 if $self->current_user->superuser \|\| $self->current_user->administrator;
48			return 1 if $self->current_user->id && $action eq 'read';
49			return 0;
50			}
51
52	dpavlin	4	1;
53