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

Annotation of /lib/A3C/Model/StrixSite.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 196 - (hide annotations)
Tue Jun 17 21:29:04 2008 UTC (15 years, 10 months ago) by dpavlin
File size: 1288 byte(s)
id is used internally by Jifty for primary key
1 dpavlin 190 package A3C::Model::StrixSite;
2     use strict;
3     use warnings;
4    
5     use Jifty::DBI::Schema;
6    
7     sub handle {
8     my $self = shift;
9     warn "## handle";
10     $self->SUPER::handle( @_ );
11     }
12    
13     use A3C::Record schema {
14    
15     column instance =>
16     label is _('Instance identifier'),
17     is mandatory,
18     type is 'text',
19     refers_to A3C::Model::StrixInstance by 'instance';
20    
21 dpavlin 196 column site_id =>
22 dpavlin 190 label is _('Id'),
23     is mandatory,
24     type is 'integer';
25    
26     column naziv =>
27     label is _('Naziv'),
28     is mandatory,
29     type is 'character varying';
30    
31     column admin_mail =>
32     label is _('Admin mail'),
33     is mandatory,
34     type is 'character varying';
35    
36     column forcedesign =>
37     label is _('Forcedesign'),
38     type is 'integer';
39    
40     column default_template =>
41     label is _('Default template'),
42     type is 'integer';
43    
44     column root =>
45     label is _('Root'),
46     type is 'character varying';
47    
48     column content_providers =>
49     label is _('Content providers'),
50     type is 'integer';
51    
52     column ordstr =>
53     label is _('Ordstr'),
54     type is 'character varying';
55    
56     column address =>
57     label is _('Address'),
58     type is 'character varying';
59    
60    
61    
62     };
63    
64     sub since { '0.0.5' };
65    
66     =head2 name
67    
68     Auto-generated human readable id for generic access to name
69    
70     =cut
71    
72     sub name { $_[0]->id }
73    
74    
75     =head2 ACL
76    
77     We use L<A3C::DefaultACL> for access control
78    
79     =cut
80    
81     use A3C::DefaultACL;
82    
83     1;

  ViewVC Help
Powered by ViewVC 1.1.26