[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