[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