/[Arh]/lib/Arh/Model/Unit.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /lib/Arh/Model/Unit.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 23 - (show annotations)
Fri Nov 30 23:23:14 2007 UTC (11 years, 5 months ago) by dpavlin
File size: 1198 byte(s)
another huge code dump:
- rename database columns to prevent conficts with standards
- added editing accessor to user which returns edit mode
- ToggleEdit action to change editing state (broken)
- tweaks all over templates to make units entry a breeze
- version bump [0.03]
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 inv_id =>
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 hint is _("Separate values with ; (semicolumn)"),
30 type is 'text';
31
32 column discovered_at =>
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 use Arh::DefaultACL;
63
64 1;
65

  ViewVC Help
Powered by ViewVC 1.1.26