Changeset 2412

Timestamp:

06/23/20 08:52:55 (4 years ago)

Author:

nanardon

Message:

Fix: add specific listReal() for SQL Onlyaddress

File:

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

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

@@ -18 +18 @@
 
 =cut
+
+sub listReal {
+    my ($class, $base) = @_;
+
+    my $sth = $base->db->prepare_cached(
+        sprintf(
+            q{select %s.%s as k from %s
+              join "user" on %s."user" = "user".name %s
+              where %s.oalias is NULL and %s.ikey not in (select okey from %s where attr = 'isMainAddress') %s
+              order by %s.%s
+            },
+            $base->db->quote_identifier($class->_object_table),
+            $base->db->quote_identifier($class->_key_field),
+            $base->db->quote_identifier($class->_object_table),
+            $base->db->quote_identifier($class->_object_table),
+            ($base->{wexported} ? '' : 'and "user".exported = true'),
+            $base->db->quote_identifier($class->_object_table),
+            $base->db->quote_identifier($class->_object_table),
+            $base->db->quote_identifier($class->_object_table_attributes_read), # attr
+            ($base->{wexported} ? '' : 'and ' .
+                $base->db->quote_identifier($class->_object_table) . '.exported = true'),
+            $base->db->quote_identifier($class->_object_table),
+            $base->db->quote_identifier($class->_key_field),
+        )
+    );
+    $sth->execute;
+    my @keys;
+    while(my $res = $sth->fetchrow_hashref) {
+        push(@keys, $res->{k});
+    }
+    @keys
+}
 
 sub list {