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 |
- |
|
|