From c214dae526d08190ae314735ee981f53ad75d751 Mon Sep 17 00:00:00 2001
From: Owen Leonard <oleonard@myacpl.org>
Date: Fri, 25 Feb 2011 10:16:40 -0500
Subject: [PATCH] Fix for Bug 5812 - Tag Cloud - capitalized words come before lower-case words
Content-Type: text/plain; charset="utf-8"
---
opac/opac-tags.pl | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl
index b98ce40..b5ce340 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);
--
1.7.3