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