[ic] $Tag->discount problem

[Jeff]

On Thu, Feb 19, 2004 at 06:38:15PM +0000, Andy Mayer wrote:

> The following perl code is in my checkout page, just before listing the
> basket items. 
> 
> I am wanting to apply the following discounts: Orders of ?20.00 or more:
> 5% discount,  ?50.00 or more: 10% discount,  ?100.00 or more: 15%
> discount.

	In ITL:

	[discount ENTIRE_ORDER][/discount]
	[set discountamt][/set]
	[assign clear=1]
	[tmp crap][subtotal noformat=1][/tmp]
	[if scratch crap >= 20]
	[and scratch crap < 100]
		[seti discountamt][scratch crap] * 0.05[/seti]
		[discount ENTIRE_ORDER]$s - $Scratch->{discountamt}[/discount]
	[/if]

	
	You can display discountamt somewhere so the user can see the 
discount.


Jeff