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

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

revision 23 by dpavlin, Mon Mar 17 13:02:50 2008 UTC revision 45 by dpavlin, Sun Mar 30 22:29:42 2008 UTC
# Line 22  use A3C::Record schema { Line 22  use A3C::Record schema {
22    
23          column cn =>          column cn =>
24                  label is _('Ime i prezime'),                  label is _('Ime i prezime'),
25                  type is 'virtual';                  is mandatory;
26    
27          column sn =>          column sn =>
                 type is 'virtual',  
28                  label is _('Prezime'),                  label is _('Prezime'),
29                  is mandatory;                  is mandatory;
30    
31          column givenName =>          column givenName =>
                 type is 'virtual',  
32                  label is _('Ime'),                  label is _('Ime'),
33                  is mandatory;                  is mandatory;
34    
# Line 66  use A3C::Record schema { Line 64  use A3C::Record schema {
64    
65          column hrEduPersonUniqueNumber =>          column hrEduPersonUniqueNumber =>
66  #               is mandatory,  #               is mandatory,
67                  label is _('JMBG');                  label is _('Unique number');
68    
69          column hrEduPersonDateOfBirth =>          column hrEduPersonDateOfBirth =>
70                  type is 'date',                  type is 'date',
# Line 90  use A3C::Record schema { Line 88  use A3C::Record schema {
88                  label is _('Tip administratora'),                  label is _('Tip administratora'),
89                  valid are [ '', 'AS', 'AI', 'AR', 'AHU' ];                  valid are [ '', 'AS', 'AI', 'AR', 'AHU' ];
90    
91            column hrEduPersonHomeOrg =>
92                    label is _('Oznaka matične ustanove'),
93                    hint is 'CARNet',
94                    is mandatory;
95    
96          column hrEduPersonProfessionalStatus =>          column hrEduPersonProfessionalStatus =>
97                  label is _('Stručni status'),                  label is _('Stručni status'),
98                  valid are [                  valid are [
# Line 150  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 =>
161    #               refers_to A3C::Model::Organization by 'id',
162    #               is mandatory;
163    
164          column hrEduPersonAffiliation =>          column hrEduPersonAffiliation =>
165                  label is _('Povezanost s ustanovom'),                  label is _('Povezanost s ustanovom'),
166                  is mandatory,                  is mandatory,
# Line 253  use A3C::Record schema { Line 264  use A3C::Record schema {
264                  label is 'Pripadnost grupi',                  label is 'Pripadnost grupi',
265                  hint is 'skolskagodina::razred';                  hint is 'skolskagodina::razred';
266    
         column o =>  
                 label is _('Naziv matične ustanove'),  
                 is mandatory;  
           
         column hrEduPersonHomeOrg =>  
                 label is _('Oznaka matične ustanove'),  
                 hint is 'CARNet',  
                 is mandatory;  
   
267          column ou =>          column ou =>
268                  label is _('Organizacijska jedinica');                  label is _('Organizacijska jedinica');
269                    
270          column roomNumber =>          column roomNumber =>
271                  label is _('Broj sobe');                  label is _('Broj sobe');
272    
         column postalAddress =>  
                 label is _('Poštanska adresa'),  
                 render as 'textarea',  
                 is mandatory;  
           
         column l =>  
                 label is _('Mjesto'),  
                 hist is 'Zagreb',  
                 is mandatory;  
   
         column postalCode =>  
                 label is _('Poštanski broj'),  
                 hint is 'HR-10000';  
   
         column street =>  
                 label is _('Ulica i kućni broj');  
           
273          column homePostalAddress =>          column homePostalAddress =>
274                  label is _('Kućna poštanska adresa'),                  label is _('Kućna poštanska adresa'),
275                  render as 'textarea';                  render as 'textarea';
# Line 299  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');
   
         column objectClass =>  
                 type is 'virtual';  
299    
300  };  };
301    
# Line 356  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 368  sub validate_telephoneNumber { Line 359  sub validate_telephoneNumber {
359          return ( 1, 'OK' );          return ( 1, 'OK' );
360  }  }
361    
362    =head2 hrEduPersonUniqueNumber
363    
364    Check if JMBG is valid
365    
366    =cut
367    
368    sub validate_hrEduPersonUniqueNumber {
369            my ( $self, $value ) = @_;
370    
371            if ( $value =~ m/^JMBG:\s+(\d+)$/ ) {
372    
373                    my $jmbg = $1;
374    
375                    return ( 0, _('JMBG must have 13 digits') ) unless length($jmbg) == 13;
376    
377                    sub digit_at {
378                            my ($jmbg,$pos) = @_;
379                            return ord(substr($jmbg,$pos,1)) - ord('0');
380                    }
381    
382                    my $sum;
383                    my $fact = 7;
384    
385                    foreach my $i ( 0 .. 11 ) {
386                            my $c = digit_at( $jmbg, $i );
387                            $sum += $c * $fact;
388    #                       warn "## $c * $fact => $sum\n";
389                            $fact--;
390                            $fact = 7 if $fact == 1;
391                    }
392    
393                    my $ost = $sum % 11;
394                    $ost = 11 - $ost if $ost > 1;
395    
396                    return ( 0, _("JMBG is invalid") ) if $ost != digit_at( $jmbg, 12 );
397            }
398    
399            return ( 1, 'OK' );
400    }
401    
402  =head2 canonicalize_hrEduPersonExpireDate  =head2 canonicalize_hrEduPersonExpireDate
403    
404  Support NONE as 2042-12-30  Support NONE as 2042-12-30
# Line 377  Support NONE as 2042-12-30 Line 408  Support NONE as 2042-12-30
408  sub canonicalize_hrEduPersonExpireDate {  sub canonicalize_hrEduPersonExpireDate {
409          my ( $self, $value ) = @_;          my ( $self, $value ) = @_;
410    
411          if ( $value eq 'NONE' ) {          if ( lc($value) eq 'none' ) {
412                  $self->log->warn("fixed hrEduPersonExpireDate");                  $self->log->warn("fixed hrEduPersonExpireDate");
413                  $value = '2042-12-30';                  $value = '2042-12-30';
414          }          }
# Line 394  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.23  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26