Changeset 2136

Timestamp:

04/26/18 07:56:38 (6 years ago)

Author:

nanardon

Message:

Fix: take care to unexported addresses

File:

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

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

@@ -1055 +1055 @@
                         where "user" = ?
                         order by address_attributes.attr
-                        });
+                        } . ($self->base->{wexported} ? '' : ' and "address".exported = true'));
                     $sth->execute($self->object->id);
                     my @values;
@@ -1072 +1072 @@
                         select name from address join address_attributes on ikey = okey
                         where "user" = ? and attr = 'isMainAddress'
-                        });
+                        } . ($self->base->{wexported} ? '' : ' and "address".exported = true'));
                     $sth->execute($self->object->id);
                     my $res = $sth->fetchrow_hashref;