From 4b561a1a63643cc591f8da1c8baaaf060b073656 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Wed, 9 Jan 2008 11:45:31 +0000
Subject: [PATCH] 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
........
---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI/Keyword.pm    | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index cd1599b2d..f492dd2c4 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -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
diff --git a/lib/WebGUI/Keyword.pm b/lib/WebGUI/Keyword.pm
index a5fbc9adc..b09bf0f9d 100644
--- a/lib/WebGUI/Keyword.pm
+++ b/lib/WebGUI/Keyword.pm
@@ -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) {