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