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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Nov 15 07:32:05 EST 2006


User:      racke
Date:      2006-11-15 12:32:05 GMT
Modified:  code/SystemTag price.coretag
Log:
passthrough convert and display parameters

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


rev 1.8, prev_rev 1.7
Index: price.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/price.coretag,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- price.coretag	8 Nov 2005 18:14:36 -0000	1.7
+++ price.coretag	15 Nov 2006 12:32:05 -0000	1.8
@@ -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.7 2005/11/08 18:14:36 jon Exp $
+# $Id: price.coretag,v 1.8 2006/11/15 12:32:05 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.7 $
+UserTag price               Version      $Revision: 1.8 $
 UserTag price               Routine      <<EOR
 sub {
 	my ($code, $ref) = @_;
@@ -21,6 +21,7 @@
 	$amount = discount_price($code, $amount, $ref->{quantity})
 			if $ref->{discount};
 	Vend::Interpolate::switch_discount_space($oldspace) if defined $oldspace;
-	return currency( $amount, $ref->{noformat} );
+	return currency( $amount, $ref->{noformat}, $ref->{convert},
+					 {display => $ref->{display}} );
 }
 EOR








More information about the interchange-cvs mailing list