[Docs] New Annotation Added
Ed LaFrance
edl@newmediaems.com
Wed, 28 Mar 2001 17:22:19 -0500
Session: 3XiFnGU9
Host: 216.175.126.63
Referrer:
Browser: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)
Name: Ed LaFrance
Subject: icconfig_30 -- Interchange Perl Objects
Email: edl@newmediaems.com
Comments:
Getting at discounts via [perl] and/or usertags is a little different than in the old MV days. First, create a reference to the Session's discount hash:
<p>
my $disc = $Session->{discount};
<p>
...then you can get and set the various types of discounts - some examples:
<p>
$disc->{ENTIRE_ORDER} = '$s -' . $y; #set absolute disc for order<br>
$item_disc = $disc->{'000959A'}; #read discount for an item<br>
$disc->{ALL_ITEMS} = '$s * .9'; #10% disc on all line items<br>