Changeset 1308 for trunk/LATMOS-Accounts/lib

Timestamp:

04/01/15 18:41:35 (9 years ago)

Author:

nanardon

Message:

add services rw attributes

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (2 diffs)

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

@@ -103 +103 @@
     $info->{exported}   = { inline => 1, formtype => 'CHECKBOX', hide => 1, monitored => 1 };
     $info->{unexported} = { inline => 1, formtype => 'CHECKBOX', };
-    $info->{services}   = { inline => 1, ro => 1, };
+    $info->{services}   = { inline => 1, multiple => 1, reference => 'service' };
 
     $info
@@ -320 +320 @@
     if (exists($data{exported})) {
         $data{exported} ||= 0;
+    }
+    if (exists($data{services})) {
+        my %old = map { $_ => 0 } $self->get_attributes('services');
+        foreach my $serv (grep { $_ } ref $data{services} ? @{ $data{services} } : $data{services}) {
+            if (!exists($old{$serv})) {
+                my $oserv = $self->base->get_object('service', $serv) or next;
+                $oserv->addAttributeValue('dependOn', $self->type . '.' . $self->id);
+            }
+            $old{$serv} = 1;
+        }
+        foreach my $serv (keys %old) {
+            if (!$old{$serv}) {
+                my $oserv = $self->base->get_object('service', $serv) or next;
+                $oserv->delAttributeValue('dependOn', $self->type . '.' . $self->id);
+            }
+        }
+        delete($data{services});
     }
     foreach my $field (keys %data) {