[Docs] New Annotation Added

Ed LaFrance edl@newmediaems.com
Wed, 28 Mar 2001 17:22:19 -0500

    Session: 3XiFnGU9
    Browser: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)

       Name: Ed LaFrance
    Subject: icconfig_30 -- Interchange Perl Objects
      Email: edl@newmediaems.com
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:
my $disc = $Session->{discount};
...then you can get and set the various types of discounts - some examples:
$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>