[ic] subtotal_nodisc

[Jon Jensen]

On Fri, 8 Apr 2005, Salvador Caballe wrote:

> I try to use the [subtotal_nodisc] usertag by Kevin  Walsh
> it runs OK with 5.3.0 but  not with IC 5.3.1 version,
>
> does any one know how to fix it?
>
> 	my $save = delete $Vend::Session->{discount};
> 	my $subtotal = Vend::Interpolate::subtotal();
> 	$Vend::Session->{discount} = $save if $save;

Probably replace the above with:

     my %save = %$::Discounts;
     my $subtotal = Vend::Interpolate::subtotal();
     %$::Discounts = %save if %save;

Jon

--
Jon Jensen
End Point Corporation
http://www.endpoint.com/
Software development with Interchange, Perl, PostgreSQL, Apache, Linux, ...