Changeset 7 for trunk/lib/Data/ObjectDriver/Driver/DBI/Pg.pm

Timestamp:

05/03/06 23:59:15 (4 years ago)

Author:

sky

Message:

r10@crucially-3 (orig r927): btrott | 2005-06-23 15:56:28 -0700
Changed to assume use of SERIAL columns, which auto-generate IDs for us

Files:

• trunk/lib/Data/ObjectDriver/Driver/DBI/Pg.pm (modified) (1 diff)

trunk/lib/Data/ObjectDriver/Driver/DBI/Pg.pm

@@ -24 +24 @@
     my($class) = @_;
     return join '_', $class->datasource, 'seq';
-} 
+}
 
-sub generate_id {
+sub fetch_id {
     my $driver = shift;
-    my($class) = @_;
-    my $seq = $driver->sequence_name($class);
-    my $dbh = $driver->rw_handle($class->properties->{db});
-    my $sth = $dbh->prepare("SELECT NEXTVAL('$seq')")
-        or return $driver->error($dbh->errstr);
-    $sth->execute
-        or return $driver->error($dbh->errstr);
-    $sth->bind_columns(undef, \my($id));
-    $sth->fetch;
-    $sth->finish;
-    $id;
+    my($dbh, $sth) = @_;
+    $dbh->last_insert_id(undef, undef, undef, undef,
+        { sequence => $driver->sequence_name });
 }