[interchange-cvs] interchange - racke modified 2 files

[interchange-core@icdevgroup.org]

User:      racke
Date:      2003-05-22 13:40:45 GMT
Modified:  .        WHATSNEW
Modified:  lib/Vend/Table Shadow.pm
Log:
Added stub for inc_field method.
CREDITS section added.

Revision  Changes    Path
2.125     +2 -0      interchange/WHATSNEW


rev 2.125, prev_rev 2.124
Index: WHATSNEW
===================================================================
RCS file: /anon_cvs/repository/interchange/WHATSNEW,v
retrieving revision 2.124
retrieving revision 2.125
diff -u -r2.124 -r2.125
--- WHATSNEW	21 May 2003 11:59:34 -0000	2.124
+++ WHATSNEW	22 May 2003 13:40:44 -0000	2.125
@@ -893,6 +893,8 @@
 * Introduce mv_shadowpass scratch variable which instructs
   the Shadow database code to return the original database record.
 
+* Add stub for inc_field method.
+
 Static Page Generation
 ----------------------
 



1.37      +11 -5     interchange/lib/Vend/Table/Shadow.pm


rev 1.37, prev_rev 1.36
Index: Shadow.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Table/Shadow.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- Shadow.pm	1 May 2003 22:27:42 -0000	1.36
+++ Shadow.pm	22 May 2003 13:40:45 -0000	1.37
@@ -1,6 +1,6 @@
 # Vend::Table::Shadow - Access a virtual "Shadow" table
 #
-# $Id: Shadow.pm,v 1.36 2003/05/01 22:27:42 racke Exp $
+# $Id: Shadow.pm,v 1.37 2003/05/22 13:40:45 racke Exp $
 #
 # Copyright (C) 2002-2003 Stefan Hornburg (Racke) <racke@linuxia.de>
 #
@@ -20,12 +20,12 @@
 # MA  02111-1307  USA.
 
 package Vend::Table::Shadow;
-$VERSION = substr(q$Revision: 1.36 $, 10);
+$VERSION = substr(q$Revision: 1.37 $, 10);
 
-# TODO
+# CREDITS
 #
-# Config.pm:
-# - check MAP to avoid mapping the key
+# Thanks to Andreas Jacob <wabi@gmx.net> for initial funding
+# and continuous bug reports.
 
 use strict;
 
@@ -125,6 +125,12 @@
 	$s = $s->import_db() unless defined $s->[$OBJ];
 	my ($orig_db, $orig_col) = $s->_map_field($column);
 	return $orig_db->numeric($orig_col);
+}
+
+sub inc_field {
+	my ($s, $key, $column, $value) = @_;
+	$s = $s->import_db() unless defined $s->[$OBJ];
+	return $s->[$OBJ]->inc_field($key, $column, $value);
 }
 
 sub column_index {