[interchange-cvs] interchange - heins modified lib/Vend/Table/DBI.pm
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Tue Dec 4 19:06:00 2001
User: heins
Date: 2001-12-05 00:05:13 GMT
Modified: lib/Vend/Table DBI.pm
Log:
* Remove improper localization of returned key value, change it
so it isn't quoted. How did this get changed? Did I mess it up?
Revision Changes Path
2.6 +4 -4 interchange/lib/Vend/Table/DBI.pm
rev 2.6, prev_rev 2.5
Index: DBI.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Table/DBI.pm,v
retrieving revision 2.5
retrieving revision 2.6
diff -u -r2.5 -r2.6
--- DBI.pm 2001/11/26 18:34:02 2.5
+++ DBI.pm 2001/12/05 00:05:13 2.6
@@ -1,6 +1,6 @@
# Vend::Table::DBI - Access a table stored in an DBI/DBD database
#
-# $Id: DBI.pm,v 2.5 2001/11/26 18:34:02 mheins Exp $
+# $Id: DBI.pm,v 2.6 2001/12/05 00:05:13 mheins Exp $
#
# Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -20,7 +20,7 @@
# MA 02111-1307 USA.
package Vend::Table::DBI;
-$VERSION = substr(q$Revision: 2.5 $, 10);
+$VERSION = substr(q$Revision: 2.6 $, 10);
use strict;
@@ -988,9 +988,9 @@
my $rc = $sth->execute(@$vary)
or die ::errmsg("execute %s: %s", $sql, $DBI::errstr);
- my $val = $s->[$CONFIG]->{AUTO_SEQUENCE}
+ $val = $s->[$CONFIG]->{AUTO_SEQUENCE}
? $s->last_sequence_value()
- : $tkey;
+ : $key;
};
if($@) {