Changeset 1302 for trunk

Timestamp:

03/26/15 19:59:04 (9 years ago)

Author:

nanardon

Message:

add related attribute to nethost: allow to indicate related host in bidiractionnal way

Location:

trunk

Files:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm (modified) (1 diff)
• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (1 diff)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Nethost.pm (modified) (2 diffs)
• LATMOS-Accounts/sqldata/attributes.csv (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -299 +299 @@
             label => 'Commentaire',
         },
+        related => {
+            label => 'Voir aussi:',
+        },
     },
 );

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

@@ -119 +119 @@
             description
             comment
+            related
             serialNumber
             encryptKey

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

@@ -61 +61 @@
                 multiple => 1, uniq => 1,
                 input => sub { lc($_[0]) } 
+            },
+            related   => {
+                multiple => 1, uniq => 1,
+                reference => 'nethost',
             },
             owner   => {
@@ -183 +187 @@
     }
 
-    $self->SUPER::set_fields(%data)
+    my $res = $self->SUPER::set_fields(%data);
+
+    if (exists $data{related}) {
+        my %exists;
+        if ($data{related}) {
+            my @related = ref $data{related} ? @{$data{related}} : $data{related};
+            foreach (@related) {
+                my $obj = $self->base->get_object('nethost', $_) or next;
+                $exists{$obj->id} = 1; 
+                my @current = grep { $_ } $obj->get_attributes('related');
+                grep { $_ eq $self->id } @current and next;
+                $obj->set_c_fields('related' => [ $self->id, @current ]);
+
+            }
+        }
+        foreach ($self->base->search_objects('nethost', 'related=' . $self->id)) {
+            my $obj = $self->base->get_object('nethost', $_) or next;
+            $exists{$_} and next;
+            my @current = grep { $_ eq $self->id } $obj->get_attributes('related');
+            $obj->set_c_fields('related' => [ @current ]);
+        }
+    }
+
+    $res
 }
 

trunk/LATMOS-Accounts/sqldata/attributes.csv

@@ -111 +111 @@
 "nethost","comment","Comment"
 "aliases","comment","Comment"
+"nethost","related","Machine en relation"