Merged revisions 5256 via svnmerge from

https://svn.webgui.org/plainblack/branch/WebGUI_7.4

........
  r5256 | graham | 2008-01-09 05:43:02 -0600 (Wed, 09 Jan 2008) | 1 line
  
  fix: Tag cloud was limited to 50 least commonly used tags
........
This commit is contained in:
Graham Knop 2008-01-09 11:45:31 +00:00
parent 6fcfa3f80d
commit 4b561a1a63
2 changed files with 2 additions and 1 deletions

View file

@ -21,6 +21,7 @@
7.4.20
- fix: Assets with no committed versions may be left as orphans when parent is purged
- fix: Tag cloud limited was to 50 least commonly used tags
7.4.19
- fix: Import Package does nothing when re-importing trashed package

View file

@ -124,7 +124,7 @@ sub generateCloud {
my $options = shift;
my $display = $options->{displayAsset} || $options->{startAsset};
my $sth = $self->session->db->read("select count(*) as keywordTotal, keyword from assetKeyword
left join asset using (assetId) where lineage like ? group by keyword order by keywordTotal limit 50",
left join asset using (assetId) where lineage like ? group by keyword order by keywordTotal desc limit 50",
[ $options->{startAsset}->get("lineage").'%' ]);
my $cloud = HTML::TagCloud->new(levels=>$options->{cloudLevels} || 24);
while (my ($count, $keyword) = $sth->array) {