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

[interchange-cvs at icdevgroup.org]

User:      kwalsh
Date:      2003-08-14 22:32:06 GMT
Modified:  code/SystemTag price.coretag
Log:
	* Fixed a problem where the following worked:

		$Tag->price({ code => $sku });

	  but the following failed:

		$Tag->price($sku);

	  The problem was highlighted by Paul Vinciguerra, in IRC,
	  and the above workaround was later discussed in the
	  interchange-users mail list - leading to this fix.

Revision  Changes    Path
1.4       +2 -0      interchange/code/SystemTag/price.coretag


rev 1.4, prev_rev 1.3
Index: price.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/price.coretag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- price.coretag	12 Feb 2003 03:59:11 -0000	1.3
+++ price.coretag	14 Aug 2003 22:32:06 -0000	1.4
@@ -5,6 +5,8 @@
 UserTag price               Routine   <<EOR
 sub {
 	my ($code, $ref) = @_;
+	$ref->{code} ||= $code;
+
 	my $amount = Vend::Data::item_price($ref);
 	$amount = discount_price($code, $amount, $ref->{quantity})
 			if $ref->{discount};