[interchange-cvs] interchange - racke modified 3 files

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2006-04-03 21:23:40 GMT
Modified:  .        MANIFEST
Modified:  lib/Vend Order.pm
Added:     code/OrderCheck always_pass.oc
Log:
breakout always_pass order check

Revision  Changes    Path
2.193     +2 -0      interchange/MANIFEST


rev 2.193, prev_rev 2.192
Index: MANIFEST
===================================================================
RCS file: /var/cvs/interchange/MANIFEST,v
retrieving revision 2.192
retrieving revision 2.193
diff -u -r2.192 -r2.193
--- MANIFEST	25 Mar 2006 20:50:42 -0000	2.192
+++ MANIFEST	3 Apr 2006 21:23:40 -0000	2.193
@@ -85,6 +85,7 @@
 code/Filter/zerofix.filter
 code/JavaScriptCheck/required.jsc
 code/OrderCheck/always_fail.oc
+code/OrderCheck/always_pass.oc
 code/OrderCheck/email_only.oc
 code/OrderCheck/exists.oc
 code/OrderCheck/filter.oc
@@ -1235,3 +1236,4 @@
 WHATSNEW-5.1
 WHATSNEW-5.3
 WHATSNEW-5.5
+META.yml                                 Module meta-data (added by MakeMaker)



2.85      +3 -8      interchange/lib/Vend/Order.pm


rev 2.85, prev_rev 2.84
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.84
retrieving revision 2.85
diff -u -r2.84 -r2.85
--- Order.pm	7 Dec 2005 17:10:10 -0000	2.84
+++ Order.pm	3 Apr 2006 21:23:40 -0000	2.85
@@ -1,8 +1,8 @@
 # Vend::Order - Interchange order routing routines
 #
-# $Id: Order.pm,v 2.84 2005/12/07 17:10:10 kwalsh Exp $
+# $Id: Order.pm,v 2.85 2006/04/03 21:23:40 racke Exp $
 #
-# Copyright (C) 2002-2003 Interchange Development Group
+# Copyright (C) 2002-2006 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
 #
 # This program was originally based on Vend 0.2 and 0.3
@@ -29,7 +29,7 @@
 package Vend::Order;
 require Exporter;
 
-$VERSION = substr(q$Revision: 2.84 $, 10);
+$VERSION = substr(q$Revision: 2.85 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -227,11 +227,6 @@
 		return (1);
 	}
 	return chain_checks(0, @_);
-}
-
-sub _always_pass {
-	my($ref,$var,$val) = @_;
-	return (1, $var, '')
 }
 
 sub _or_check {



1.1                  interchange/code/OrderCheck/always_pass.oc


rev 1.1, prev_rev 1.0
Index: always_pass.oc
===================================================================
# Copyright 2006 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: always_pass.oc,v 1.1 2006/04/03 21:23:40 racke Exp $

CodeDef always_pass OrderCheck 1
CodeDef always_pass Description Always succeeds
CodeDef always_pass Routine <<EOR
sub {
	my ($ref, $name, $value, $msg) = @_;
	return (0, $name, $msg || errmsg('succeeded'));
}
EOR