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