[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} );
 }