[interchange-cvs] interchange - ton modified lib/Vend/Interpolate.pm

[interchange-core@icdevgroup.org]

User:      ton
Date:      2003-02-27 10:12:16 GMT
Modified:  lib/Vend Interpolate.pm
Log:
	Fixed two small bugs in the levies routine.
	1. One prevented finding the customer defined routine.
	2. The customer routine was called with the wrong paramers.

Revision  Changes    Path
2.149     +4 -4      interchange/lib/Vend/Interpolate.pm


rev 2.149, prev_rev 2.148
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.148
retrieving revision 2.149
diff -u -r2.148 -r2.149
--- Interpolate.pm	18 Feb 2003 23:10:42 -0000	2.148
+++ Interpolate.pm	27 Feb 2003 10:12:15 -0000	2.149
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.148 2003/02/18 23:10:42 mheins Exp $
+# $Id: Interpolate.pm,v 2.149 2003/02/27 10:12:15 ton Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -27,7 +27,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.148 $, 10);
+$VERSION = substr(q$Revision: 2.149 $, 10);
 
 @EXPORT = qw (
 
@@ -6763,8 +6763,8 @@
 					$sub = $Global::UserTag->{Routine}{$mode};
 				};
 			}
-			if( ref($sub) ne 'CODE') {
-				($cost, $desc, $sort) = $sub->($opt);
+			if( ref($sub) eq 'CODE') {
+				($cost, $desc, $sort) = $sub->($l);
 			}
 			else {
 				logError("No subroutine found for custom levy '%s'", $name);