[interchange-cvs] interchange - heins modified lib/Vend/Order.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Jun 9 15:29:07 EDT 2005
User: heins
Date: 2005-06-09 19:29:07 GMT
Modified: lib/Vend Order.pm
Log:
* Allow passing of the message to custom routines.
Revision Changes Path
2.70 +4 -4 interchange/lib/Vend/Order.pm
rev 2.70, prev_rev 2.69
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.69
retrieving revision 2.70
diff -u -r2.69 -r2.70
--- Order.pm 30 Apr 2005 15:09:58 -0000 2.69
+++ Order.pm 9 Jun 2005 19:29:07 -0000 2.70
@@ -1,6 +1,6 @@
# Vend::Order - Interchange order routing routines
#
-# $Id: Order.pm,v 2.69 2005/04/30 15:09:58 mheins Exp $
+# $Id: Order.pm,v 2.70 2005/06/09 19:29:07 mheins Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -29,7 +29,7 @@
package Vend::Order;
require Exporter;
-$VERSION = substr(q$Revision: 2.69 $, 10);
+$VERSION = substr(q$Revision: 2.70 $, 10);
@ISA = qw(Exporter);
@@ -368,11 +368,11 @@
}
elsif ($OrderCheck and $sub = $OrderCheck->{$routine}) {
#::logDebug("Using coderef OrderCheck = $sub");
- @args = ($ref,$var,$val);
+ @args = ($ref,$var,$val,$message);
}
elsif (defined &{"_$routine"}) {
$sub = \&{"_$routine"};
- @args = ($ref,$var,$val);
+ @args = ($ref,$var,$val,$message);
}
else {
return (undef, $var, errmsg("No format check routine for '%s'", $routine));
More information about the interchange-cvs
mailing list