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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Tue May 17 12:59:34 EDT 2005


User:      heins
Date:      2005-05-17 16:59:33 GMT
Modified:  lib/Vend Interpolate.pm
Log:
* Make TaxInclusive work for Levies.

Revision  Changes    Path
2.246     +5 -2      interchange/lib/Vend/Interpolate.pm


rev 2.246, prev_rev 2.245
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.245
retrieving revision 2.246
diff -u -r2.245 -r2.246
--- Interpolate.pm	3 May 2005 06:03:26 -0000	2.245
+++ Interpolate.pm	17 May 2005 16:59:33 -0000	2.246
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.245 2005/05/03 06:03:26 mheins Exp $
+# $Id: Interpolate.pm,v 2.246 2005/05/17 16:59:33 mheins Exp $
 #
 # Copyright (C) 2002-2005 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.245 $, 10);
+$VERSION = substr(q$Revision: 2.246 $, 10);
 
 @EXPORT = qw (
 
@@ -5811,6 +5811,7 @@
 		my $item = {
 							code			=> $name,
 							mode			=> $mode,
+							type			=> $type,
 							sort			=> $sort,
 							cost			=> round_to_frac_digits($cost),
 							currency		=> currency($cost),
@@ -5848,6 +5849,8 @@
 
 	for(@$lcart) {
 		next if $opt->{group} and $opt->{group} ne $_->{group};
+		next if $_->{type} eq 'salestax'
+			and $_->{inclusive} || $Vend::Cfg->{TaxInclusive};
 		$run += $_->{cost};
 	}
 








More information about the interchange-cvs mailing list