[ViewVC] Diff of: cvs/PApp-SQL/SQL.pm

Comparing PApp-SQL/SQL.pm (file contents):
Revision 1.7 by root, Mon Jan 15 00:19:55 2001 UTC vs.
Revision 1.8 by root, Mon Jan 22 10:53:36 2001 UTC

 =cut
 =item $lastid = sql_insertid $sth
-Returns the last automatically created key value (e.g. for mysql
+Returns the last automatically created key value. It must be executed
-AUTO_INCREMENT or sybase IDENTITY fields). It must be executed directly
-after executing the insert statement that created it.
+directly after executing the insert statement that created it. This is
+what is actually returned for various databases. If your database is
+missing, please send me an e-mail on how to implement this ;)
+ mysql:    first C<AUTO_INCREMENT> column set to NULL
+ postgres: C<oid> column (is there a way to get the last SERIAL?)
+ sybase:   C<IDENTITY> column of the last insert (slow)
+ informix: C<SERIAL> or C<SERIAL8> column of the last insert
+Except for sybase, this does not require a server access.
 =cut
 sub sql_insertid($) {
    my $sth = shift or die "sql_insertid requires a statement handle";
    my $dbh = $sth->{Database};
    my $driver = $dbh->{Driver}{Name};
-   $driver eq "mysql" and return $sth->{mysql_insertid};
+   $driver eq "mysql"    and return $sth->{mysql_insertid};
+   $driver eq "Pg"       and return $sth->{pg_oid_status};
-   $driver eq "Sybase" and return sql_fetch($dbh, 'SELECT @@IDENTITY');
+   $driver eq "Sybase"   and return sql_fetch($dbh, 'SELECT @@IDENTITY');
    $driver eq "Informix" and return $sth->{ix_sqlerrd}[1];
    die "sql_insertid does not spport the dbd driver '$driver', please see PApp::SQL::sql_insertid";
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines