/[A3C]/lib/A3C/Model/Organization.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/A3C/Model/Organization.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 121 - (show annotations)
Thu May 15 19:18:45 2008 UTC (15 years, 10 months ago) by dpavlin
File size: 1573 byte(s)
added depriciation warnings
1 use strict;
2 use warnings;
3
4 =head1 WARNING
5
6 B<This code is obsolete> since application is using L<A3C::Model::hrEduOrg>
7
8 =cut
9
10 package A3C::Model::Organization;
11 use Jifty::DBI::Schema;
12
13 use A3C::Record schema {
14
15 column uid =>
16 label is _('UID'),
17 is indexed,
18 is distinct,
19 is mandatory;
20
21 column o =>
22 label is _('Naziv matične ustanove'),
23 is mandatory;
24
25 column l =>
26 label is _('Mjesto'),
27 hist is 'Zagreb',
28 is mandatory;
29
30 column postalAddress =>
31 label is _('Poštanska adresa'),
32 render as 'textarea',
33 is mandatory;
34
35 column postalCode =>
36 label is _('Poštanski broj'),
37 hint is 'HR-10000';
38
39 column street =>
40 label is _('Ulica i kućni broj');
41
42 column hrEduOrgUniqueNumber =>
43 label is _('hrEduOrgUniqueNumber'),
44 is indexed,
45 is mandatory;
46
47 column telephoneNumber =>
48 label is _('Broj telefona');
49
50 column facsimileTelephoneNumber =>
51 label is _('fax number');
52
53 column cn =>
54 label is _('cn'),
55 is indexed;
56
57 column dc =>
58 label is _('dc'),
59 is indexed;
60
61 column uidNumber =>
62 type is 'int',
63 label is _('uid number');
64
65 column gidNumber =>
66 type is 'int',
67 label is _('gid number');
68
69 column homeDirectory =>
70 label is _('home directory');
71
72 column 'loginShell';
73
74 column 'hrEduOrgMail';
75
76 column 'hrEduOrgType';
77
78 column 'hrEduOrgURL';
79
80 column 'hrEduOrgPolicyURI';
81
82 column 'hrEduOrgMobile';
83
84 column 'hrEduOrgMember';
85
86 };
87
88 # Your model-specific methods go here.
89
90 =head2 name
91
92 Humanly readable name of organization
93
94 =cut
95
96 sub name {
97 my $self = shift;
98 return $self->cn . ' - ' . $self->o;
99 }
100
101 use A3C::DefaultACL;
102
103 1;
104

  ViewVC Help
Powered by ViewVC 1.1.26