[interchange-cvs] interchange - racke modified code/SystemTag/price.coretag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Nov 15 10:10:11 EST 2006


User:      racke
Date:      2006-11-15 15:10:11 GMT
Modified:  code/SystemTag price.coretag
Log:
switch to currency parameters analogous to subtotal and total-cost

Revision  Changes    Path
1.9       +3 -4      interchange/code/SystemTag/price.coretag


rev 1.9, prev_rev 1.8
Index: price.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/price.coretag,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- price.coretag	15 Nov 2006 12:32:05 -0000	1.8
+++ price.coretag	15 Nov 2006 15:10:11 -0000	1.9
@@ -1,13 +1,13 @@
 # Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: price.coretag,v 1.8 2006/11/15 12:32:05 racke Exp $
+# $Id: price.coretag,v 1.9 2006/11/15 15:10:11 racke Exp $
 
 UserTag price               Order        code
 UserTag price               addAttr
 UserTag price               attrAlias    base mv_ib
 UserTag price               attrAlias    space discount_space
 UserTag price               PosNumber    1
-UserTag price               Version      $Revision: 1.8 $
+UserTag price               Version      $Revision: 1.9 $
 UserTag price               Routine      <<EOR
 sub {
 	my ($code, $ref) = @_;
@@ -21,7 +21,6 @@
 	$amount = discount_price($code, $amount, $ref->{quantity})
 			if $ref->{discount};
 	Vend::Interpolate::switch_discount_space($oldspace) if defined $oldspace;
-	return currency( $amount, $ref->{noformat}, $ref->{convert},
-					 {display => $ref->{display}} );
+	return currency( $amount, $ref->{noformat}, undef, $ref );
 }
 EOR








More information about the interchange-cvs mailing list