[ic] Item Discount Persists when clearing ALL_ITEMS

[Mike Heins]

Quoting Peter (peter at pajamian.dhs.org):
> On 02/02/11 13:48, Mike Heins wrote:
> > You can do
> > 
> > 	%{$Session->{discount}} = ();
> 
> Newer versions of Interchange use the $Discounts hashref instead, so the
> above code becomes:
> %$Discounts = ();

Either one should work, as they are the same hash reference....

> 
> > if you don't want to preserve the special ENTIRE_ORDER
> > and ALL_ITEMS discounts. If you do, then you could run:
> 
> delete @{$Discounts}{grep { !/^(ALL_ITEMS|ENTIRE_ORDER)$/ } keys
> %$Discounts}; # Untested, but should work.

Of course. But a lot of people would be surprised to find that
it saves mostly typing, and not much processor power. I try
and write for clarity when possible.

-- 
Mike Heins
Perusion -- Expert Interchange Consulting    http://www.perusion.com/
phone +1.765.328.4479  <mike at perusion.com>

"It is a remarkable fact that despite the worldwide expenditure of perhaps
US$50 billion since 1990, and the efforts of tens of thousands of scientists
worldwide, no human climate signal has yet been detected that is distinct
from natural variation." - Bob Carter