[ic] 4.6.1 :: Bug in $Tag->price() -- with patch
Jeff Carnahan
jcarnahan@networq.com
Fri, 19 Jan 2001 20:57:10 -0800
There is a bug in $Tag->price() that prevents the price from being obtained
and discounted properly. This affects Interchange 4.6.1 (and possibly
earlier versions). I've posted a report to bugzilla, but I'm posting it here
as well so everyone has an immediate patch. =)
Bugzilla report: http://developer.akopia.com/bugs/long_list.cgi?buglist=119
- Refer to the patch at the bottom. The first patch doesn't fix both bugs.
Patch:
*** Interpolate-dist.pm Fri Jan 19 23:41:59 2001
--- Interpolate.pm Fri Jan 19 23:49:43 2001
***************
*** 1437,1444 ****
sub tag_price {
my($code,$ref) = @_;
! my $amount = Vend::Data::item_price($ref,$ref->{quantity} || 1);
! $amount = discount_price($ref,$amount, $ref->{quantity})
if $ref->{discount};
return currency( $amount, $ref->{noformat} );
}
--- 1437,1444 ----
sub tag_price {
my($code,$ref) = @_;
! my $amount = Vend::Data::item_price($code,$ref->{quantity} || 1);
! $amount = discount_price($code,$amount, $ref->{quantity})
if $ref->{discount};
return currency( $amount, $ref->{noformat} );
}
--
Jeff Carnahan - jcarnahan@networq.com