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

fixed: Package search is slow for large websites

Browse source
This commit is contained in:
Graham Knop 2008-04-15 22:36:44 +00:00
parent 8ec2c763b4
commit 5d597b709c
2 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/AssetPackage.pm
View file

@ -86,12 +86,12 @@ Returns an array of hashes containing title, assetId, and className for all asse
sub getPackageList {
my $self = shift;
my @assets;
my $sql = "
select
asset.assetId,
assetData.revisionDate,
asset.className
asset.className,
assetData.title
from
asset
left join
@ -101,14 +101,17 @@ sub getPackageList {
and assetData.revisionDate=(SELECT max(revisionDate) from assetData where assetData.assetId=asset.assetId and
(assetData.status='approved'";
$sql .= " or assetData.tagId=".$self->session->db->quote($self->session->scratch->get("versionTag")) if ($self->session->scratch->get("versionTag"));
$sql .= ")) and asset.state='published' group by assetData.assetId order by assetData.title desc";
my $sth = $self->session->db->read($sql);
while (my ($id, $date, $class) = $sth->array) {
my $asset = WebGUI::Asset->new($self->session, $id,$class);
push(@assets, $asset) if ($asset->get("isPackage"));
}
$sth->finish;
return \@assets;
$sql .= ")) and asset.state='published'";
my $sth = $self->session->db->read($sql);
# MySQL sorts this very slowly, so we do it ourselves
my @assets;
while (my ($id, $date, $class, $title) = $sth->array) {
my $asset = WebGUI::Asset->new($self->session, $id, $class, $date);
push(@assets, [$title, $asset]) if ($asset->get("isPackage"));
}
$sth->finish;
@assets = map { $_->[1] } sort { $a->[0] cmp $b->[0] } @assets;
return \@assets;
}