UserDB: log timestamps to second granularity
[interchange.git] / code / SystemTag / discount_space.coretag
1 # Copyright 2002-2007 Interchange Development Group and others
2
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.  See the LICENSE file for details.
7
8 # $Id: discount_space.coretag,v 1.6 2007-03-30 23:40:49 pajamian Exp $
9
10 UserTag discount_space  Documentation <<EOF
11 The discount-space is rather equivalent to the values-space functionality.
12 Interchange keeps discount information in a single hash at $Vend::Session->{discount}.
13 This is fine except when you start using multiple shopping carts to represent different
14 portions of the store and fundamentally different transactions; any common item codes
15 will result in one cart's discounts leaking into that of the other cart...
16
17 Consequently, we can use a discount space to give a different namespace to various discounts.
18 This can be used in parallel with mv_cartname for different shopping carts.
19 Set up a master hash of different discount namespaces in the session. Treat the default one
20 as 'main' (like Interchange does with the cart). When discount space is called and a name
21 is given, point the $Vend::Session->{discount} to the appropriate hashref held in this master
22 hash.
23
24 Some options:
25 clear - this will empty the discounts for the space specified, after switching to that space.
26 current - this will not change the namespace; it simply returns the current space name.
27 EOF
28
29 UserTag discount_space  order      name
30 UserTag discount_space  AttrAlias  space   name
31 UserTag discount_space  AddAttr
32 UserTag discount_space  Version    $Revision: 1.6 $
33 UserTag discount_space  Routine    <<EOF
34 sub {
35         my ($namespace, $opt) = @_;
36         $namespace ||= 'main';
37 #::logDebug("Tag discount-space called for namespace '$namespace'! Clear: '$opt->{clear}' Current: '$opt->{current}'");
38
39         unless ($Vend::Session->{discount} and $Vend::Session->{discount_space}) {
40                 # Initialize the discount space hash, and just assign whatever's in
41                 # the current discount hash to it as the 'main' entry.
42                 # Furthermore, instantiate the discount hash if it doesn't already exist, otherwise
43                 # the linkage between that hashref and the discount_space hashref might break...
44 #::logDebug('Tag discount-space: initializing discount_space hash; first call to this tag for this session.');
45                 $::Discounts
46                         = $Vend::Session->{discount}
47                         = $Vend::Session->{discount_space}{$Vend::DiscountSpaceName = 'main'}
48                         ||= ($Vend::Session->{discount} || {});
49                 $Vend::Session->{discount_space}{main} = $Vend::Session->{discount} ||= {};
50         }
51
52         logError('Discount-space tag called but discount spaces are deactivated in this catalog.'), return undef
53                 unless $Vend::Cfg->{DiscountSpacesOn};
54
55         return ($Vend::DiscountSpaceName ||= 'main') if $opt->{current};
56
57         $::Discounts = $Vend::Session->{discount} = $Vend::Session->{discount_space}{$namespace} ||= {};
58         $Vend::DiscountSpaceName = $namespace;
59 #::logDebug("Tag discount-space: set discount space to '$namespace'");
60
61         %$::Discounts = () if $opt->{clear};
62
63         return undef;
64 }
65 EOF