bug4891 - sort facets in search sidebar (OPAC and staff client)

[koha_gimpoz] / opac / opac-search.pl

diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index 88f3a2f..45cb766 100755 (executable)
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -422,6 +422,13 @@ elsif (C4::Context->preference('NoZebra')) {
         ($error, $results_hashref, $facets) = getRecords($query,$simple_query,\@sort_by,\@servers,$results_per_page,$offset,$expanded_facet,$branches,$query_type,$scan);
     };
 }
+# This sorts the facets into alphabetical order
+if ($facets) {
+    foreach my $f (@$facets) {
+        $f->{facets} = [ sort { uc($a->{facet_title_value}) cmp uc($b->{facet_title_value}) } @{ $f->{facets} } ];
+    }
+}
+
 # use Data::Dumper; print STDERR "-" x 25, "\n", Dumper($results_hashref);
 if ($@ || $error) {
     $template->param(query_error => $error.$@);