Changeset 85

Timestamp:

05/10/09 20:09:30 (15 years ago)

Author:

nanardon

Message:

• check object exist before returning an instance

File:

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

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

@@ -133 +133 @@
 sub new {
     my ($class, $base, $id) = @_;
+    my $sth = $base->db->prepare_cached(
+        sprintf(q{select 1 from %s where %s = ?},
+            $base->db->quote_identifier($class->object_table),
+            $base->db->quote_identifier($class->key_field),
+        ),
+    );
+    my $count = $sth->execute($id);
+    $sth->finish;
+    $count == 1 or return;
     bless({ _id => $id, _base => $base }, $class);
 }