[interchange-cvs] interchange - racke modified 2 files
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Thu May 22 09:41:01 2003
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 {