Name

discount_space —

ATTRIBUTES

Attribute Pos. Req. Default Description
interpolate     0 interpolate output?
hide     0 Hide the tag return value?

DESCRIPTION

BEHAVIOR

This tag does not appear to be affected by, or affect, the rest of Interchange.

EXAMPLES

No examples are available at this time. We do consider this a problem and will try to supply some.

NOTES

AVAILABILITY

discount_space is available in Interchange versions:

4.6.0-5.7.0 (git-head)

SOURCE

Interchange 5.7.0:

Source: code/SystemTag/discount_space.coretag
Lines: 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

AUTHORS

Interchange Development Group

SEE ALSO

DocBook! Interchange!