Forward port Shelf view fix. Was not displaying child shelves, only self.

This commit is contained in:
Colin Kuskie 2009-01-15 16:35:01 +00:00
parent 1b6dd7be63
commit 1460618ad4
2 changed files with 3 additions and 1 deletions

View file

@ -277,7 +277,8 @@ sub view {
my @childShelves = ();
foreach my $child (@{$self->getLineage(['children'],{returnObjects=>1,includeOnlyClasses=>['WebGUI::Asset::Wobject::Shelf']})}) {
my $properties = $child->get;
$child->{url} = $self->getUrl;
$child->{url} = $child->getUrl;
$child->{title} = $child->getTitle;
push @childShelves, $child;
}