[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