# 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.

UserTag item-list Order name

UserTag item-list addAttr

UserTag item-list attrAlias cart name

UserTag item-list attrAlias space discount_space

UserTag item-list hasEndTag

UserTag item-list Version 1.7

UserTag item-list Routine <<EOR

sub {

my($cart,$opt,$text) = @_;

return if ! $text;

my $items = $cart ? ($::Carts->{$cart} ||= []) : $Vend::Items;

my $oldspace;

$oldspace = Vend::Interpolate::switch_discount_space($opt->{discount_space})

if defined $opt->{discount_space};

$items = [ reverse @$items ] if $opt->{reverse};

my $obj = { mv_results => $items };

$opt->{prefix} = 'item' unless defined $opt->{prefix};

# LEGACY

list_compat($opt->{prefix}, \$text);

# END LEGACY

# store the output temporarily, as we need to switch back to the old discount space...

my $output = labeled_list($opt, $text, $obj);

Vend::Interpolate::switch_discount_space($oldspace) if defined $oldspace;

return $output;

}

EOR