fixed some keywords bugs
took beta label away from event manager added option to shelf to include items below it and items included via keywords
This commit is contained in:
parent
b0ec9edf53
commit
ab55978f55
5 changed files with 16 additions and 17 deletions
|
|
@ -11,6 +11,7 @@ package WebGUI::Asset::Wobject::Shelf;
|
|||
#-------------------------------------------------------------------
|
||||
|
||||
use strict;
|
||||
use List::MoreUtils;
|
||||
use Tie::IxHash;
|
||||
use WebGUI::International;
|
||||
use base 'WebGUI::Asset::Wobject';
|
||||
|
|
@ -90,20 +91,19 @@ sub view {
|
|||
}
|
||||
|
||||
# get other child skus
|
||||
my @childSkus = ();
|
||||
foreach my $child (@{$self->getLineage(['children'],{includeOnlyClasses=>['WebGUI::Asset::Wobject::Shelf']})}) {
|
||||
my $properties = $child->get;
|
||||
$child->{url} = $self->getUrl;
|
||||
push @childSkus, $child;
|
||||
}
|
||||
my @childSkus = @{$self->getLineage(['children'],{includeOnlyClasses=>['WebGUI::Asset::Wobject::Shelf']})};
|
||||
|
||||
# find products based upon keywords
|
||||
my @keywords = $self->get('keywords');
|
||||
my $keywordBasedAsssetIds = WebGUI::Keyword->new($session)->getMatchingAssets({
|
||||
my $keywordBasedAssetIds = WebGUI::Keyword->new($session)->getMatchingAssets({
|
||||
matchAssetKeywords => $self,
|
||||
isa => 'WebGUI::Asset::Sku',
|
||||
});
|
||||
$p->setBaseUrl($self->getUrl('func=view'));
|
||||
|
||||
# create paginator
|
||||
my @products = List::MoreUtils::uniq(@childSkus, @{$keywordBasedAssetIds});
|
||||
my $p = WebGUI::Paginator->new($session, $self->getUrl('func=view'));
|
||||
$p->setDataByArrayRef(\@products);
|
||||
|
||||
# generate template variables
|
||||
my @skus = ();
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue