From edafbd941d14977cb98d07d2fd3fbba3b2a995ac Mon Sep 17 00:00:00 2001 From: Owen Leonard 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 Signed-off-by: Chris Cormack --- 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