Item8349: fixed grouping in case-sensitive tag clouds, reported by An…

…dre Lichtsteiner git-svn-id: http://svn.foswiki.org/trunk/TagCloudPlugin@5640 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Nov 25, 2009 · 1453f18 · 1453f18
1 parent 9caf93f
commit 1453f18
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/data/System/TagCloudPlugin.txt b/data/System/TagCloudPlugin.txt
@@ -191,6 +191,7 @@ Cloud for the above text:
 |  Release: | %$RELEASE% |
 |  Version: | %$VERSION% |
 |  Change History: | &nbsp; |
+|  25 Nov 2009: | fixed grouping in case sensitive tag clouds |
 |  03 Sep 2009: | made sorting case insensitive; added case sensitive extra param |
 |  25 Aug 2009: | added custom fields for terms in the tagcloud (Foswiki:Main.OliverKrueger) |
 |  24 Apr 2009: | converted to foswiki plugin |

diff --git a/lib/Foswiki/Plugins/TagCloudPlugin.pm b/lib/Foswiki/Plugins/TagCloudPlugin.pm
@@ -24,7 +24,7 @@ use vars qw(
 );
 
 $VERSION = '$Rev$';
-$RELEASE = 'v2.10';
+$RELEASE = 'v2.11';
 $NO_PREFS_IN_TOPIC = 1;
 $SHORTDESCRIPTION = 'Renders a tag cloud given a list of terms';
 

diff --git a/lib/Foswiki/Plugins/TagCloudPlugin/Core.pm b/lib/Foswiki/Plugins/TagCloudPlugin/Core.pm
@@ -547,7 +547,9 @@ sub handleTagCloud {
     } else {
       if ($theSort eq 'alpha') {
 	$group = substr($term, 0, 1);
-	$group = lc($group) if $theLowerCase eq 'on';
+	$group = ($theLowerCase eq 'on')?lc($group):uc($group);
+      } elsif ($theSort eq 'case') {
+	$group = substr($term, 0, 1);
       } else {
 	$group = int($weight/10)*10;
       }