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