[ic] Item Discount Persists when clearing ALL_ITEMS

[Peter]

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 = ();

> 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.


Peter