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 =>
                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;

};

# 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;
}

1;

1	dpavlin	2	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	dpavlin	9	column campaign =>
20			refers_to Arh::Model::Campaign,
21			is mandatory,
22			since '0.0.9';
23
24	dpavlin	2	column dimensions =>
25			label is _("Dimensions"),
26			hit is _("Separate values with ; (semicolumn)"),
27			type is 'text';
28
29			column position =>
30			label is _("Place of discovery"),
31			type is 'text';
32
33			column description =>
34	dpavlin	8	label is _("Description"),
35			render as 'textarea';
36	dpavlin	2
37			column chronology =>
38			label is _("Chronology"),
39			refers_to Arh::Model::Chronology,
40			since '0.0.2';
41
42			column location =>
43			label is _("Current location"),
44			refers_to Arh::Model::Location;
45
46			};
47
48			# Your model-specific methods go here.
49
50	dpavlin	8	sub material {
51			my $self = shift;
52			my $m = Arh::Model::UnitMaterialCollection->new;
53			$m->limit( column => 'unit', value => $self->id );
54			return $m;
55			}
56
57	dpavlin	2	1;
58