From edafbd941d14977cb98d07d2fd3fbba3b2a995ac Mon Sep 17 00:00:00 2001
From: Owen Leonard <oleonard@myacpl.org>
Date: Sun, 20 Feb 2011 21:32:22 -0500
Subject: [PATCH] Fix for Bug 5812 - Tag Cloud - capitalized words come before
 lower-case words

Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 opac/opac-tags.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl
index b98ce40105..b5ce340b95 100755
--- a/opac/opac-tags.pl
+++ b/opac/opac-tags.pl
@@ -293,7 +293,7 @@ if ($add_op) {
 	}
 }
 (scalar @errors  ) and $template->param(ERRORS  => \@errors);
-my @orderedresult = sort { $a->{'term'} cmp $b->{'term'} } @$results;
+my @orderedresult = sort { uc($a->{'term'}) cmp uc($b->{'term'}) } @$results;
 (scalar @$results) and $template->param(TAGLOOP => \@orderedresult );
 (scalar @$my_tags) and $template->param(MY_TAGS => $my_tags);
 
-- 
2.39.5