Arh/Model/UnitMaterial.pm

use strict;
use warnings;

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

use Arh::Record schema {

        column unit =>
                refers_to Arh::Model::Unit,
                is required;
        column material =>
                refers_to Arh::Model::Material,
                is required;

};

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

# Your model-specific methods go here.

sub current_user_can {
        my ( $self, $action,$item,$name ) = @_;
        return 1 if $self->current_user->administrator;
        return 1 if $self->current_user->superuser;
        return 1 if $action eq 'read';
    return 0;
}

1;

1	dpavlin	2	use strict;
2			use warnings;
3
4			package Arh::Model::UnitMaterial;
5			use Jifty::DBI::Schema;
6
7			use Arh::Record schema {
8
9			column unit =>
10	dpavlin	3	refers_to Arh::Model::Unit,
11			is required;
12	dpavlin	2	column material =>
13	dpavlin	3	refers_to Arh::Model::Material,
14			is required;
15	dpavlin	2
16			};
17
18	dpavlin	10	#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
19
20	dpavlin	2	# Your model-specific methods go here.
21
22	dpavlin	10	sub current_user_can {
23			my ( $self, $action,$item,$name ) = @_;
24	dpavlin	11	return 1 if $self->current_user->administrator;
25			return 1 if $self->current_user->superuser;
26			return 1 if $action eq 'read';
27	dpavlin	10	return 0;
28			}
29
30	dpavlin	2	1;
31