Changeset 453


Ignore:
Timestamp:
09/10/09 17:11:53 (15 years ago)
Author:
nanardon
Message:
  • manage postalAddress attribute
Location:
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Address.pm

    r443 r453  
    6060        mail =>  'mail', 
    6161        givenName => 'givenName', 
     62        postalAddress => 'postalAddress', 
    6263    ) : () 
    6364} 
    … …  
    8990        my $user = $self->base->get_object('user', $self->_get_c_field('user')); 
    9091        return $user->_get_c_field($field); 
     92    } elsif ($field eq 'postalAddress' ) { 
     93        my $bp = $self->_get_c_field('postOfficeBox'); 
     94        return join('$', grep { $_ } ( 
     95            $self->_get_c_field('o'), 
     96            $self->_get_c_field('streetAddress'), 
     97            ($bp ? 'BP ' . $bp : ''), 
     98            join(' ', grep { $_ } ( 
     99                    $self->_get_c_field('postalCode'), 
     100                    $self->_get_c_field('l'),)), 
     101            join(' ', grep { $_ } ( 
     102                    $self->_get_c_field('st'), 
     103                    $self->_get_c_field('c'),), 
     104            ) 
     105        )); 
    91106    } else { 
    92107        return $self->SUPER::get_field($field); 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Site.pm

    r155 r453  
    4343sub has_extended_attributes { 1 } 
    4444 
     45sub _managed_fields { 
     46    my ($self, $for, $base) = @_; 
     47    $for !~ /w/ ? ( 
     48        postalAddress => 'postalAddress', 
     49    ) : () 
     50} 
     51 
     52 
    4553sub _delayed_fields { 
    4654    my ($self)= @_; 
    4755    return qw(); 
     56} 
     57 
     58sub get_field { 
     59    my ($self, $field) = @_; 
     60    if ($field eq 'postalAddress' ) { 
     61        my $bp = $self->_get_c_field('postOfficeBox'); 
     62        return join('$', grep { $_ } ( 
     63            $self->_get_c_field('o'), 
     64            $self->_get_c_field('streetAddress'), 
     65            ($bp ? 'BP ' . $bp : ''), 
     66            join(' ', grep { $_ } ( 
     67                    $self->_get_c_field('postalCode'), 
     68                    $self->_get_c_field('l'),)), 
     69            join(' ', grep { $_ } ( 
     70                    $self->_get_c_field('st'), 
     71                    $self->_get_c_field('c'),), 
     72            ) 
     73        )); 
     74    } else { 
     75        return $self->SUPER::get_field($field); 
     76    } 
    4877} 
    4978 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

    r450 r453  
    3030# This fields are special in sense they may come from site field 
    3131sub _address_fields { qw(co l postalCode streetAddress postOfficeBox st 
    32     facsimileTelephoneNumber o) } 
     32    facsimileTelephoneNumber o postalAddress) } 
    3333 
    3434=head1 FUNCTIONS 
Note: See TracChangeset for help on using the changeset viewer.