Lines 842-849
sub marc_records_to_documents {
Link Here
|
842 |
my $usmarc_record = $record->as_usmarc(); |
842 |
my $usmarc_record = $record->as_usmarc(); |
843 |
|
843 |
|
844 |
#NOTE: Try to round-trip the record to prove it will work for retrieval after searching |
844 |
#NOTE: Try to round-trip the record to prove it will work for retrieval after searching |
845 |
my $decoded_usmarc_record = MARC::Record->new_from_usmarc($usmarc_record); |
845 |
my $decoded_usmarc_record; |
846 |
if ( $decoded_usmarc_record->warnings() ) { |
846 |
eval { $decoded_usmarc_record = MARC::Record->new_from_usmarc($usmarc_record); }; |
|
|
847 |
if ( $@ || $decoded_usmarc_record->warnings() ) { |
847 |
|
848 |
|
848 |
#NOTE: We override the warnings since they're many and misleading |
849 |
#NOTE: We override the warnings since they're many and misleading |
849 |
@warnings = ( |
850 |
@warnings = ( |
850 |
- |
|
|