|
Lines 506-515
sub getRecords {
Link Here
|
| 506 |
for my $facet (@$facets) { |
506 |
for my $facet (@$facets) { |
| 507 |
for ( my $j = 0 ; $j < $jmax ; $j++ ) { |
507 |
for ( my $j = 0 ; $j < $jmax ; $j++ ) { |
| 508 |
|
508 |
|
| 509 |
my $marc_record = MARC::Record->new_from_xml( |
509 |
my $marc_record = eval { MARC::Record->new_from_xml( |
| 510 |
$results[ $i - 1 ]->record($j)->raw(), |
510 |
$results[ $i - 1 ]->record($j)->raw(), |
| 511 |
'UTF-8' |
511 |
'UTF-8' |
| 512 |
); |
512 |
); }; |
|
|
513 |
|
| 514 |
if ( $@ ) { |
| 515 |
warn "ERROR DECODING RECORD - $@: " . |
| 516 |
$results[ $i - 1 ]->record($j)->raw(); |
| 517 |
next; |
| 518 |
} |
| 519 |
|
| 513 |
my @used_datas = (); |
520 |
my @used_datas = (); |
| 514 |
|
521 |
|
| 515 |
foreach my $tag ( @{ $facet->{tags} } ) { |
522 |
foreach my $tag ( @{ $facet->{tags} } ) { |
| 516 |
- |
|
|