diff --git a/Koha/Exporter/Record.pm b/Koha/Exporter/Record.pm index ee76d8a466..c441550bfa 100644 --- a/Koha/Exporter/Record.pm +++ b/Koha/Exporter/Record.pm @@ -26,6 +26,8 @@ sub _get_record_for_export { return; } + return unless $record; + if ($dont_export_fields) { for my $f ( split / /, $dont_export_fields ) { if ( $f =~ m/^(\d{3})(.)?$/ ) { @@ -127,6 +129,7 @@ sub export { print "\n"; for my $record_id (@$record_ids) { my $record = _get_record_for_export( { %$params, record_id => $record_id } ); + next unless $record; print MARC::File::XML::record($record); print "\n"; }