Changeset 394

Timestamp:

08/25/09 21:24:41 (15 years ago)

Author:

nanardon

Message:

• if user does not have any address, first one is main

File:

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

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

@@ -62 +62 @@
 }
 
+sub _create {
+    my ($class, $base, $id, %data) = @_;
+    $data{user} or return;
+    my $user = $base->get_object('user', $data{user});
+    if (!$user->get_c_field('otheraddress')) {
+        $data{isMainAddress} = 1;
+    }
+    $class->SUPER::_create($base, $id, %data);
+}
+
 sub get_field {
     my ($self, $field) = @_;