[interchange-cvs] interchange - racke modified 2 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Dec 4 07:42:03 EST 2003
User: racke
Date: 2003-12-04 12:42:03 GMT
Modified: . WHATSNEW
Modified: lib/Vend/Table Shadow.pm
Log:
Add stubs for commit and rollback methods, thanks to Thomas Weiss
<pater.noster at gmx.net> for report.
Revision Changes Path
2.167 +7 -1 interchange/WHATSNEW
rev 2.167, prev_rev 2.166
Index: WHATSNEW
===================================================================
RCS file: /anon_cvs/repository/interchange/WHATSNEW,v
retrieving revision 2.166
retrieving revision 2.167
diff -u -r2.166 -r2.167
--- WHATSNEW 26 Nov 2003 23:53:45 -0000 2.166
+++ WHATSNEW 4 Dec 2003 12:42:03 -0000 2.167
@@ -84,7 +84,13 @@
Jobs
----
-* removed update_locales job - as a consequence of the removal of the [find] usertag
+* Remove update_locales job - as a consequence of the removal of the [find] usertag
+
+Shadow
+------
+
+* Add stubs for commit and rollback methods, thanks to Thomas Weiss
+ <pater.noster at gmx.net> for report.
------------------------------------------------------------------------------
1.44 +14 -2 interchange/lib/Vend/Table/Shadow.pm
rev 1.44, prev_rev 1.43
Index: Shadow.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Table/Shadow.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- Shadow.pm 16 Oct 2003 13:09:59 -0000 1.43
+++ Shadow.pm 4 Dec 2003 12:42:03 -0000 1.44
@@ -1,6 +1,6 @@
# Vend::Table::Shadow - Access a virtual "Shadow" table
#
-# $Id: Shadow.pm,v 1.43 2003/10/16 13:09:59 racke Exp $
+# $Id: Shadow.pm,v 1.44 2003/12/04 12:42:03 racke Exp $
#
# Copyright (C) 2002-2003 Stefan Hornburg (Racke) <racke at linuxia.de>
#
@@ -20,7 +20,7 @@
# MA 02111-1307 USA.
package Vend::Table::Shadow;
-$VERSION = substr(q$Revision: 1.43 $, 10);
+$VERSION = substr(q$Revision: 1.44 $, 10);
# CREDITS
#
@@ -131,6 +131,18 @@
my ($s, $key, $column, $value) = @_;
$s = $s->import_db() unless defined $s->[$OBJ];
return $s->[$OBJ]->inc_field($key, $column, $value);
+}
+
+sub commit {
+ my ($s) = @_;
+ $s = $s->import_db() unless defined $s->[$OBJ];
+ return $s->[$OBJ]->commit();
+}
+
+sub rollback {
+ my ($s) = @_;
+ $s = $s->import_db() unless defined $s->[$OBJ];
+ return $s->[$OBJ]->rollback();
}
sub column_index {
More information about the interchange-cvs
mailing list