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

26
lib/WebGUI/Asset.pm
View file

@ -1279,6 +1279,32 @@ sub getNotFound {
}
#-------------------------------------------------------------------
=head2 getPrototypeList ( )
Returns an array of all assets that the user can view and edit that are prototypes.
=cut
sub getPrototypeList {
my $self = shift;
my $session = $self->session;
my $db = $session->db;
my @prototypeIds = $db->buildArray("select distinct assetId from assetData where isPrototype=1");
my $userUiLevel = $session->user->profileField('uiLevel');
my @assets;
ID: foreach my $id (@prototypeIds) {
my $asset = WebGUI::Asset->newByDynamicClass($session, $id);
next ID unless defined $asset;
next ID unless $asset->get('isPrototype');
next ID unless ($asset->get('status') eq 'approved' || $asset->get('tagId') eq $session->scratch->get("versionTag"));
push @assets, $asset;
}
return \@assets;
}
#-------------------------------------------------------------------
=head2 getRoot ( session )