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	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	label is _("From date"),
21	type is 'date',
22	filters are qw( Jifty::DBI::Filter::Date ),
23	render as 'date',
24	is mandatory;
25
26	column date_to =>
27	label is _("To date"),
28	type is 'date',
29	filters are qw( Jifty::DBI::Filter::Date ),
30	render as 'date',
31	is mandatory;
32
33	column note =>
34	label is _("Note"),
35	render as 'textarea';
36
37	};
38
39	#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
40
41	# Your model-specific methods go here.
42
43	sub since { '0.0.3' }
44
45	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	1;
53