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	use strict;
2	use warnings;
3
4	package Arh::Model::Unit;
5	use Jifty::DBI::Schema;
6
7	use Data::Dump qw/dump/;
8
9	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	column campaign =>
22	label is _("Part of campaign"),
23	refers_to Arh::Model::Campaign,
24	is mandatory,
25	since '0.0.9';
26
27	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	label is _("Description"),
38	render as 'textarea';
39
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	#use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
52
53	# Your model-specific methods go here.
54
55	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	sub current_user_can {
63	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	return 0;
69	}
70
71	1;
72