View | Details | Raw Unified | Return to bug 26614
Collapse All | Expand All

(-)a/C4/Search.pm (-2 / +3 lines)
Lines 40-45 use Business::ISBN; Link Here
40
use MARC::Record;
40
use MARC::Record;
41
use MARC::Field;
41
use MARC::Field;
42
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
42
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
43
use utf8;
44
use Text::Unaccent;
43
45
44
BEGIN {
46
BEGIN {
45
    $DEBUG = ($ENV{DEBUG}) ? 1 : 0;
47
    $DEBUG = ($ENV{DEBUG}) ? 1 : 0;
Lines 592-598 sub getRecords { Link Here
592
    # This sorts the facets into alphabetical order
594
    # This sorts the facets into alphabetical order
593
    if (@facets_loop) {
595
    if (@facets_loop) {
594
        foreach my $f (@facets_loop) {
596
        foreach my $f (@facets_loop) {
595
            $f->{facets} = [ sort { uc($a->{facet_label_value}) cmp uc($b->{facet_label_value}) } @{ $f->{facets} } ];
597
            $f->{facets} = [ sort { uc(unac_string("UTF-8", $a->{facet_label_value})) cmp uc(unac_string("UTF-8", $b->{facet_label_value})) } @{ $f->{facets} } ];
596
        }
598
        }
597
    }
599
    }
598
600
599
- 

Return to bug 26614