[body 1]
- Art Store Logo -

[item-list]

[/if] [/item-list] [if discount ALL_ITEMS] [/if]
Shopping Cart Contents
ISBN Description Quantity Price
[item-code] [item-description] [if explicit items scratch] [condition] $no = $Safe{scratch}->{"nodisplay_[item-code]"}; return 1 unless $no; foreach $item (reverse @{$Safe{items}}) { return '' if $no eq $item->{'code'}; } 1; [/condition]
[item-accessories][item-accessories size][item-accessories color]
[if discount [item-code]] [perl sub discount] FindDiscount ('[item-code]','[item-price]') [/perl] [else]$[item-price]

[/else][/if]

All items are discounted by 30 percent!
 . .  . . Subtotal $[subtotal]

[set Stop shopping] mv_todo=return mv_nextpage=canceled [/set] [set Home] mv_todo=return mv_nextpage=catalog [/set] [set Search] mv_todo=return mv_nextpage=main [/set] [set Browse] mv_todo=return mv_nextpage=home [/set] [[set FindDiscount] ($code,$s) = @_; $s =~ s/[^\d.]//g; eval "\$d = $Safe{discount}->{$code}"; $x = $s - $d; $x = sprintf "%.2f", $x; $d = sprintf "%.2f", $d; 1 while $x =~ s/^(-?\d+)(\d{3})/$1,$2/; 1 while $d =~ s/^(-?\d+)(\d{3})/$1,$2/; $out = < This item is discounted by \$$x! EOF $out; [/set]]