Changeset 1823 for trunk/LATMOS-Accounts


Ignore:
Timestamp:
07/11/16 14:43:43 (8 years ago)
Author:
nanardon
Message:

Remove duplicate code

File:
1 edited

Legend:

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

    r1816 r1823  
    420420    my @vals; 
    421421    my %ext; 
    422     if (exists($data{services})) { 
    423         my %old = map { $_ => 0 } $self->get_attributes('services'); 
    424         foreach my $serv (grep { $_ } ref $data{services} ? @{ $data{services} } : $data{services}) { 
    425             if (!exists($old{$serv})) { 
    426                 my $oserv = $self->base->get_object('service', $serv) or next; 
    427                 $oserv->addAttributeValue('dependOn', $self->type . '.' . $self->id); 
    428             } 
    429             $old{$serv} = 1; 
    430         } 
    431         foreach my $serv (keys %old) { 
    432             if (!$old{$serv}) { 
    433                 my $oserv = $self->base->get_object('service', $serv) or next; 
    434                 $oserv->delAttributeValue('dependOn', $self->type . '.' . $self->id); 
    435             } 
    436         } 
    437         delete($data{services}); 
    438     } 
    439422    if (exists($data{services})) { 
    440423        my %old = map { $_ => 0 } $self->get_attributes('services'); 
Note: See TracChangeset for help on using the changeset viewer.