Changeset 1899

Timestamp:

01/02/17 09:14:54 (7 years ago)

Author:

nanardon

Message:

Don't return object if unexported

File:

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

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

@@ -253 +253 @@
 
         my $sth = $base->db->prepare_cached(
-            sprintf(q{ select 1 from %s where %s = ?},
+            sprintf(q{ select 1 from %s where %s = ? %s},
                 $base->db->quote_identifier($class->_object_table),
                 $base->db->quote_identifier($class->_key_field),
+                ($base->{wexported} ? '' : 'and exported = true'),
             ),
         );