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

Diff of /lib/A3C/Model/Person.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 42 by dpavlin, Sun Mar 30 16:58:21 2008 UTC revision 45 by dpavlin, Sun Mar 30 22:29:42 2008 UTC
# Line 153  use A3C::Record schema { Line 153  use A3C::Record schema {
153                  ],                  ],
154                  default is '';                  default is '';
155    
156            column 'o';
157            column 'l';
158            column 'postalAddress';
159    
160  #       column organization =>  #       column organization =>
161  #               refers_to A3C::Model::Organization by 'id',  #               refers_to A3C::Model::Organization by 'id',
162  #               is mandatory;  #               is mandatory;
# Line 280  use A3C::Record schema { Line 284  use A3C::Record schema {
284                  label is _('Oznaka privatnosti');                  label is _('Oznaka privatnosti');
285    
286          column loginShell =>          column loginShell =>
287                  label is _('shell');                  label is _('login shell');
288    
289          column uidNumber =>          column uidNumber =>
290                  label is _('uid'),                  label is _('uid number'),
291                  type is 'int';                  type is 'int';
292    
293          column gidNumber =>          column gidNumber =>
294                  label is _('gid');                  label is _('gid number');
295                  type is 'int';                  type is 'int';
296    
297          column homeDirectory =>          column homeDirectory =>
298                  label is _('home');                  label is _('home directory');
299    
300  };  };
301    
# Line 334  sub email { Line 338  sub email {
338    
339  sub email_confirmed { 1 };  sub email_confirmed { 1 };
340    
341    =head2 name
342    
343    =cut
344    
345    sub name {
346            my $self = shift;
347            return $self->__value('cn');
348    }
349    
350  =head2 validate_telephoneNumber  =head2 validate_telephoneNumber
351    
352  =cut  =cut
# Line 412  sub current_user_can { Line 425  sub current_user_can {
425          return 1;          return 1;
426  }  }
427    
428    
429  1;  1;
430    
Legend:
Removed from v.42  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26