[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