Arh/Model/Location.pm

use strict;
use warnings;

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

use Arh::Record schema {

        column name =>
                label is _("Name"),
                is mandatory;
        
        column address =>
                label is _("Address");
        
        column city =>
                label is _("City");
        
        column country =>
                label is _("Country");
        
        column note =>
                label is _("Note");

};

#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	2	use strict;
2			use warnings;
3
4			package Arh::Model::Location;
5			use Jifty::DBI::Schema;
6
7			use Arh::Record schema {
8
9			column name =>
10	dpavlin	3	label is _("Name"),
11			is mandatory;
12	dpavlin	2
13			column address =>
14			label is _("Address");
15
16			column city =>
17			label is _("City");
18
19			column country =>
20			label is _("Country");
21
22			column note =>
23			label is _("Note");
24
25			};
26
27	dpavlin	10	#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
28
29	dpavlin	2	# Your model-specific methods go here.
30
31	dpavlin	4	sub since { '0.0.3' }
32
33	dpavlin	10	sub current_user_can {
34			my ( $self, $action,$item,$name ) = @_;
35			return 1 if $self->current_user->superuser \|\| $self->current_user->administrator;
36			return 1 if $self->current_user->id && $action eq 'read';
37			return 0;
38			}
39
40	dpavlin	2	1;
41