Changeset 1345 for trunk

Timestamp:

05/29/15 17:30:51 (9 years ago)

Author:

nanardon

Message:

Identify newly create object by using the ikey, return the Id of newly create object

File:

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

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

@@ -210 +210 @@
     $sth->execute(map { $first{$_} || undef } sort keys %first) or return;
 
-    my $obj = $class->new($base, $id);
+    my $lastid = $base->db->last_insert_id(undef, undef, $class->_object_table, undef);
+    my $sthid = $base->db->prepare_cached(
+        sprintf(q{select %s as k from %s where ikey = ?},
+            $base->db->quote_identifier($class->_key_field),
+            $base->db->quote_identifier($class->_object_table),
+        )
+    );
+    $sthid->execute($lastid);
+    my $res = $sthid->fetchrow_hashref() or return;
+
+    my $obj = $class->new($base, $res->{k}) or return;
     $obj->set_fields(%second);
 
-    1;
+    return $res->{k};
 }