Re: [mv] UserTag <-> [subtotal]

[Randy Moore <ramoore@axion-it.net>]

******    message to minivend-users from Randy Moore <ramoore@axion-it.net>     ******

Sounds like you may need to use CommonAdjust  with a customer UserTag to 
determine the proper pricing for each product.

Here are some messages from the archive that may help:
http://www.minivend.com/minivend/minivend-list/1999/msg04479.html
http://www.minivend.com/minivend/minivend-list/1999/msg01516.html
http://www.minivend.com/minivend/minivend-list/1999/msg04697.html

Here is an example that I am still in the process of developing (but it 
works as is):

CommonAdjust    "[tag touch products][/tag][check-discount]", ;products:price

UserTag check-discount Routine <<EOR
sub {
         my $ca_string = 'products:price';
         if ($Vend::Session->{'source'}) {
                 $ca_string = 'products:memberprice';
         }
         return $ca_string;
}
EOR

Right now, this just checks to see if the session has a "referring source", 
(ie [data session source]), and if so, gets the product price from the 
'memberprice' column of my products database, rather than from the 'price' 
column.




At 4/3/00 11:23 AM , you wrote:
>******    message to minivend-users from 
>"=?iso-8859-1?Q?Markus_M=FCller_=28ASS_Software_Odw.=29?=" 
><mueller@ass-software.de>     ******
>
>How can I access the basket data through perl? The prices
>for the products in my store depend on a few settings the
>user can choose. So I need a user tag that does exactly
>the same as [subtotal noformat=1] but fetches the prices from
>different DBs depending on the user settings.
>
>
>regards
>
>Markus

Randy Moore
Axion Information Technologies, Inc.

email     ramoore@axion-it.net
phone   301-408-1200
fax        301-445-3947
-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list