From 5a4bded0d6c3666fc69c79e6402592f57cde5475 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 31 May 2010 10:16:38 -0700
Subject: [PATCH] Fix a bug with Shelf template variables.  Fixes bug #11603.

---
 docs/changelog/7.x.x.txt          | 1 +
 lib/WebGUI/Asset/Wobject/Shelf.pm | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 62c993641..d48b587a4 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -12,6 +12,7 @@
  - fixed #11587: Thingy, no fields and undefined statement handles
  - fixed #11589: Syndicated Content: Return raw text for sentence and word template variables
  - fixed #11573: user has no way of knowing what they are currently using
+ - fixed #11603: Shelf, template variables for sub shelves
 
 7.9.5
  - Asset->www_copy now has a progress bar
diff --git a/lib/WebGUI/Asset/Wobject/Shelf.pm b/lib/WebGUI/Asset/Wobject/Shelf.pm
index aead37d17..921299960 100644
--- a/lib/WebGUI/Asset/Wobject/Shelf.pm
+++ b/lib/WebGUI/Asset/Wobject/Shelf.pm
@@ -291,9 +291,9 @@ sub view {
 	SHELF: foreach my $child (@{$self->getLineage(['children'],{returnObjects=>1,includeOnlyClasses=>['WebGUI::Asset::Wobject::Shelf']})}) {
         next SHELF unless $child->canView;
 		my $properties  = $child->get;
-		$child->{url}   = $child->getUrl;
-		$child->{title} = $child->getTitle;
-		push @childShelves, $child;
+		$properties->{url}   = $child->getUrl;
+		$properties->{title} = $child->getTitle;
+		push @childShelves, $properties;
 	}
 	
 	# get other child skus