[interchange-cvs] interchange - racke modified code/OrderCheck/always_pass.oc

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2006-04-11 07:48:34 GMT
Modified:  code/OrderCheck always_pass.oc
Log:
fixed wrong code - usual copy&waste problem

Revision  Changes    Path
1.2       +2 -3      interchange/code/OrderCheck/always_pass.oc


rev 1.2, prev_rev 1.1
Index: always_pass.oc
===================================================================
RCS file: /var/cvs/interchange/code/OrderCheck/always_pass.oc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- always_pass.oc	3 Apr 2006 21:23:40 -0000	1.1
+++ always_pass.oc	11 Apr 2006 07:48:34 -0000	1.2
@@ -1,12 +1,11 @@
 # 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 $
+# $Id: always_pass.oc,v 1.2 2006/04/11 07:48:34 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'));
+	return (1, $_[1], '');
 }
 EOR