Changeset 1823 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Timestamp:
- 07/11/16 14:43:43 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r1816 r1823 420 420 my @vals; 421 421 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 }439 422 if (exists($data{services})) { 440 423 my %old = map { $_ => 0 } $self->get_attributes('services');
Note: See TracChangeset
for help on using the changeset viewer.