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

New Content pane is working

Browse source
This commit is contained in:
Doug Bell 2010-08-04 17:55:13 -05:00
parent 90d974d911
commit 1b0ec95abb
5 changed files with 170 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/AssetPackage.pm
View file

@ -87,7 +87,7 @@ sub exportPackage {
#-------------------------------------------------------------------
=head2 getPackageList ( )
=head2 WebGUI::Asset::getPackageList ( session )
Returns an array of all assets that the user can view and edit that are packages. The array
is sorted by the title of the assets.
@ -95,8 +95,10 @@ is sorted by the title of the assets.
=cut
sub getPackageList {
my $self = shift;
my $session = $self->session;
my $session = shift;
if ( $session->isa( 'WebGUI::Asset' ) ) {
$session = $session->session;
}
my $db = $session->db;
my @packageIds = $db->buildArray("select distinct assetId from assetData where isPackage=1");
my @assets;