Lines 493-498
sub getRecords {
Link Here
|
493 |
# not an index scan |
493 |
# not an index scan |
494 |
else { |
494 |
else { |
495 |
$record = $results[ $i - 1 ]->record($j)->raw(); |
495 |
$record = $results[ $i - 1 ]->record($j)->raw(); |
|
|
496 |
Encode::decode('UTF-8', $record ); |
496 |
# warn "RECORD $j:".$record; |
497 |
# warn "RECORD $j:".$record; |
497 |
$results_hash->{'RECORDS'}[$j] = $record; |
498 |
$results_hash->{'RECORDS'}[$j] = $record; |
498 |
} |
499 |
} |
Lines 519-524
sub getRecords {
Link Here
|
519 |
next; |
520 |
next; |
520 |
} |
521 |
} |
521 |
|
522 |
|
|
|
523 |
Encode::decode('UTF-8', $marc_record); |
524 |
|
522 |
my @used_datas = (); |
525 |
my @used_datas = (); |
523 |
|
526 |
|
524 |
foreach my $tag ( @{ $facet->{tags} } ) { |
527 |
foreach my $tag ( @{ $facet->{tags} } ) { |
Lines 720-725
sub pazGetRecords {
Link Here
|
720 |
for (my $i = 0; $i < $count; $i++) { |
723 |
for (my $i = 0; $i < $count; $i++) { |
721 |
# FIXME -- may need to worry about diacritics here |
724 |
# FIXME -- may need to worry about diacritics here |
722 |
my $rec = $paz->record($recid, $i); |
725 |
my $rec = $paz->record($recid, $i); |
|
|
726 |
Encode::decode('UTF-8', $rec ); |
723 |
push @{ $result_group->{'RECORDS'} }, $rec; |
727 |
push @{ $result_group->{'RECORDS'} }, $rec; |
724 |
} |
728 |
} |
725 |
|
729 |
|
726 |
- |
|
|