Arh/Model/Unit.pm

use strict;
use warnings;

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

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