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