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