Arh/Model/Unit.pm

use strict;
use warnings;

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

use Data::Dump qw/dump/;

use Arh::Record schema {

        column name =>
                type is 'text',
                label is _("Name"),
                is mandatory;
        
        column number =>
                type is 'text',
                label is _("Number"),
                is mandatory;

        column campaign =>
                label is _("Part of campaign"),
                refers_to Arh::Model::Campaign,
                is mandatory,
                since '0.0.9';

        column dimensions =>
                label is _("Dimensions"),
                hit is _("Separate values with ; (semicolumn)"),
                type is 'text';
        
        column position =>
                label is _("Place of discovery"),
                type is 'text';

        column description =>
                label is _("Description"),
                render as 'textarea';

        column chronology =>
                label is _("Chronology"),
                refers_to Arh::Model::Chronology,
                since '0.0.2';

        column location =>
                label is _("Current location"),
                refers_to Arh::Model::Location;

};

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

# Your model-specific methods go here.

sub material {
        my $self = shift;
        my $m = Arh::Model::UnitMaterialCollection->new;
        $m->limit( column => 'unit', value => $self->id );
        return $m;
}

sub current_user_can {
        my ( $self, $action,$item,$value ) = @_;
        warn "## |$action|$item|$value| user id: ",$self->current_user->id;
        return 1 if $self->current_user->superuser;
        return 1 if $self->current_user->administrator;
        return 1 if $action eq 'read';
    return 0;
}

1;

1	dpavlin	2	use strict;
2			use warnings;
3
4			package Arh::Model::Unit;
5			use Jifty::DBI::Schema;
6
7	dpavlin	11	use Data::Dump qw/dump/;
8
9	dpavlin	2	use Arh::Record schema {
10
11			column name =>
12			type is 'text',
13			label is _("Name"),
14			is mandatory;
15
16			column number =>
17			type is 'text',
18			label is _("Number"),
19			is mandatory;
20
21	dpavlin	9	column campaign =>
22	dpavlin	10	label is _("Part of campaign"),
23	dpavlin	9	refers_to Arh::Model::Campaign,
24			is mandatory,
25			since '0.0.9';
26
27	dpavlin	2	column dimensions =>
28			label is _("Dimensions"),
29			hit is _("Separate values with ; (semicolumn)"),
30			type is 'text';
31
32			column position =>
33			label is _("Place of discovery"),
34			type is 'text';
35
36			column description =>
37	dpavlin	8	label is _("Description"),
38			render as 'textarea';
39	dpavlin	2
40			column chronology =>
41			label is _("Chronology"),
42			refers_to Arh::Model::Chronology,
43			since '0.0.2';
44
45			column location =>
46			label is _("Current location"),
47			refers_to Arh::Model::Location;
48
49			};
50
51	dpavlin	10	#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
52
53	dpavlin	2	# Your model-specific methods go here.
54
55	dpavlin	8	sub material {
56			my $self = shift;
57			my $m = Arh::Model::UnitMaterialCollection->new;
58			$m->limit( column => 'unit', value => $self->id );
59			return $m;
60			}
61
62	dpavlin	10	sub current_user_can {
63	dpavlin	11	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	dpavlin	10	return 0;
69			}
70
71	dpavlin	2	1;
72