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