Also look in the next-highest directory when detecting VCS; add SVN
[interchange.git] / code / SystemTag / item_list.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 UserTag item-list           Order        name
9 UserTag item-list           addAttr
10 UserTag item-list           attrAlias    cart name
11 UserTag item-list           attrAlias    space discount_space
12 UserTag item-list           hasEndTag
13 UserTag item-list           Version      1.7
14 UserTag item-list           Routine      <<EOR
15 sub {
16         my($cart,$opt,$text) = @_;
17         return if ! $text;
18         my $items = $cart ? ($::Carts->{$cart} ||= []) : $Vend::Items;
19
20         my $oldspace;
21         $oldspace = Vend::Interpolate::switch_discount_space($opt->{discount_space})
22                 if defined $opt->{discount_space};
23
24         $items = [ reverse @$items ] if $opt->{reverse};
25         my $obj = { mv_results => $items };
26         $opt->{prefix} = 'item' unless defined $opt->{prefix};
27 # LEGACY
28         list_compat($opt->{prefix}, \$text);
29 # END LEGACY
30
31         # store the output temporarily, as we need to switch back to the old discount space...
32         my $output = labeled_list($opt, $text, $obj);
33         Vend::Interpolate::switch_discount_space($oldspace) if defined $oldspace;
34         return $output;
35 }
36 EOR