Changeset 496


Ignore:
Timestamp:
10/05/09 12:01:18 (15 years ago)
Author:
nanardon
Message:
  • allow to set revaliases from user object
File:
1 edited

Legend:

Unmodified
Added
Removed
  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

    r494 r496  
    6767        forward => 'forward', 
    6868        aliases => 'aliases', 
     69        revaliases => 'revaliases', 
    6970        (map { $_ => $_ } $self->_address_fields), 
    7071        (map { $_ => $_ } $self->_office_address_fields), 
     
    8182        otheraddress => 'otheraddress', 
    8283        mainaddress => 'mainaddress', 
    83         revaliases => 'revaliases', 
    8484        postalAddress => 'postalAddress', 
    8585        facsimileTelephoneNumber => 'facsimileTelephoneNumber', 
     
    326326            next; 
    327327        }; 
     328        $attr =~ /^revaliases$/ and do { 
     329            if ($data{$attr}) { 
     330                if (my $obj = $self->base-> 
     331                        get_object('revaliases', $self->id)) { 
     332                    if ($obj->set_c_fields('as', $data{$attr})) { 
     333                        $res++; 
     334                    } else { 
     335                        $self->base->log(LA_ERR, 'Cannot set revaliases for user %s', 
     336                            $self->id); 
     337                    } 
     338                } else { 
     339                    if ($self->base->_create_c_object( 
     340                        'revaliases', 
     341                        $self->id, as => $data{$attr}, 
     342                    )) { 
     343                        $res++; 
     344                    } else { 
     345                        $self->base->log(LA_ERR, 'Cannot set revaliases for user %s', 
     346                            $self->id); 
     347                    } 
     348                } 
     349            } else { 
     350                $self->base->_delete_object('revaliases', $self->id); 
     351                $res++; 
     352            } 
     353            next; 
     354        }; 
    328355        grep { $attr eq $_ } (__PACKAGE__->_office_address_fields, __PACKAGE__->_address_fields()) and do { 
    329356            my $fmainaddress = $self->_get_c_field('mainaddress'); 
Note: See TracChangeset for help on using the changeset viewer.