[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