[interchange-cvs] interchange - jon modified code/SystemTag/price.coretag
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Sat Jul 13 22:59:00 2002
User: jon
Date: 2002-07-14 02:58:41 GMT
Modified: code/SystemTag price.coretag
Log:
Fix subroutine call mistakes that broke [price] tag.
Revision Changes Path
1.2 +3 -3 interchange/code/SystemTag/price.coretag
rev 1.2, prev_rev 1.1
Index: price.coretag
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/code/SystemTag/price.coretag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- price.coretag 29 Jan 2002 05:52:38 -0000 1.1
+++ price.coretag 14 Jul 2002 02:58:41 -0000 1.2
@@ -4,9 +4,9 @@
UserTag price PosNumber 1
UserTag price Routine <<EOR
sub {
- my($code,$ref) =3D @_;
- my $amount =3D Vend::Data::item_price($ref,$ref->{quantity} || 1);
- $amount =3D discount_price($ref,$amount, $ref->{quantity})
+ my ($code, $ref) =3D @_;
+ my $amount =3D Vend::Data::item_price($code, $ref->{quantity} || 1);
+ $amount =3D discount_price($code, $amount, $ref->{quantity})
if $ref->{discount};
return currency( $amount, $ref->{noformat} );
}