[interchange-cvs] interchange - jon modified code/SystemTag/item_list.coretag

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2004-02-12 14:07:34 GMT
Modified:  code/SystemTag item_list.coretag
Log:
Add 'reverse' attribute to [item-list], to walk the cart lines in reverse
order.

Revision  Changes    Path
1.3       +3 -3      interchange/code/SystemTag/item_list.coretag


rev 1.3, prev_rev 1.2
Index: item_list.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/item_list.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- item_list.coretag	7 May 2003 01:07:28 -0000	1.2
+++ item_list.coretag	12 Feb 2004 14:07:34 -0000	1.3
@@ -5,10 +5,10 @@
 UserTag item-list           Routine      <<EOR
 sub {
 	my($cart,$opt,$text) = @_;
-	my $obj = {
-				mv_results => $cart ? ($::Carts->{$cart} ||= [] ) : $Vend::Items,
-					};
 	return if ! $text;
+	my $items = $cart ? ($::Carts->{$cart} ||= []) : $Vend::Items;
+	$items = [ reverse @$items ] if $opt->{reverse};
+	my $obj = { mv_results => $items };
 	$opt->{prefix} = 'item' unless defined $opt->{prefix};
 # LEGACY
 	list_compat($opt->{prefix}, \$text);