Changeset 1144 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Address.pm

Timestamp:

09/18/12 18:24:21 (12 years ago)

Author:

nanardon

Message:

Fix setting address with site

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Address.pm (modified) (1 diff)

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

@@ -127 +127 @@
 }
 
+sub _set_c_fields {
+    my ($self, %cdata) = @_;
+    if ($cdata{site} &&
+        $self->base->get_object('site', $cdata{site})) {
+        foreach (qw(co l postalCode streetAddress postOfficeBox st
+                    facsimileTelephoneNumber o)) {
+            delete($cdata{$_});
+        }
+    }
+
+    $self->SUPER::_set_c_fields(%cdata);
+}
+
 sub set_fields {
     my ($self, %data) = @_;