oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Encapsulate a method to get the list of content prototypes.

Browse source 
Performance improvements for the list retrieval.
This commit is contained in:
Colin Kuskie 2009-06-17 01:57:26 +00:00
parent 7c4ae06e33
commit 801efdbda7
3 changed files with 29 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Macro/AdminBar.pm
View file

@ -146,15 +146,10 @@ sub process {
}
# prototypes
my $sth = $session->db->read("select asset.className,asset.assetId,assetData.revisionDate from asset
left join assetData on asset.assetId=assetData.assetId
where assetData.isPrototype=1 and asset.state='published' and assetData.revisionDate=(SELECT max(revisionDate) from assetData where assetData.assetId=asset.assetId)
group by assetData.assetId");
while (my ($class, $id, $date) = $sth->array) {
my $prototype = WebGUI::Asset->new($session,$id,$class,$date);
foreach my $prototype (@{ $session->asset->getPrototypeList }) {
next unless ($prototype->canView && $prototype->canAdd($session) && $prototype->getUiLevel <= $userUiLevel);
$categories{prototypes}{items}{$prototype->getTitle} = {
url => $asset->getUrl("func=add;class=".$class.";prototype=".$prototype->getId),
url => $asset->getUrl("func=add;class=".$prototype->get('className').";prototype=".$prototype->getId),
icon => $prototype->getIcon(1),
};
}