[ic] subtotal_nodisc

[Salvador Caballe]

On Fri, 8 Apr 2005 08:08:30 -0500
Mike Heins <mike at perusion.com> wrote:

> Quoting Kevin Walsh (kevin at cursor.biz):
> > Jon Jensen [jon at endpoint.com] wrote:
> > > 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;
> > > 
> > Remember to clear out the discount space as well:
> > 
> >     my %save = %$::Discounts;
> >     undef $::Discounts;
> 
> I think you need to do:
> 
> 	%$::Discounts = ();
> 
> Otherwise the reference will be re-created with unpredictable
> results.

Thanks , now is working OK

Salvador