Lines 36-41
use URI::Escape;
Link Here
|
36 |
use Business::ISBN; |
36 |
use Business::ISBN; |
37 |
use MARC::Record; |
37 |
use MARC::Record; |
38 |
use MARC::Field; |
38 |
use MARC::Field; |
|
|
39 |
use Encode qw/decode_utf8/; |
39 |
use utf8; |
40 |
use utf8; |
40 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); |
41 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); |
41 |
|
42 |
|
Lines 503-510
sub getRecords {
Link Here
|
503 |
$size > $facets_maxrecs ? $facets_maxrecs : $size; |
504 |
$size > $facets_maxrecs ? $facets_maxrecs : $size; |
504 |
for my $facet (@$facets) { |
505 |
for my $facet (@$facets) { |
505 |
for ( my $j = 0 ; $j < $jmax ; $j++ ) { |
506 |
for ( my $j = 0 ; $j < $jmax ; $j++ ) { |
506 |
my $render_record = |
507 |
my $render_record = decode_utf8( |
507 |
$results[ $i - 1 ]->record($j)->render(); |
508 |
$results[ $i - 1 ]->record($j)->render()); |
508 |
my @used_datas = (); |
509 |
my @used_datas = (); |
509 |
foreach my $tag ( @{ $facet->{tags} } ) { |
510 |
foreach my $tag ( @{ $facet->{tags} } ) { |
510 |
|
511 |
|
511 |
- |
|
|