Lines 27-32
sub _get_record_for_export {
Link Here
|
27 |
return; |
27 |
return; |
28 |
} |
28 |
} |
29 |
|
29 |
|
|
|
30 |
return unless $record; |
31 |
|
30 |
if ($dont_export_fields) { |
32 |
if ($dont_export_fields) { |
31 |
for my $f ( split / /, $dont_export_fields ) { |
33 |
for my $f ( split / /, $dont_export_fields ) { |
32 |
if ( $f =~ m/^(\d{3})(.)?$/ ) { |
34 |
if ( $f =~ m/^(\d{3})(.)?$/ ) { |
Lines 128-133
sub export {
Link Here
|
128 |
print "\n"; |
130 |
print "\n"; |
129 |
for my $record_id (@$record_ids) { |
131 |
for my $record_id (@$record_ids) { |
130 |
my $record = _get_record_for_export( { %$params, record_id => $record_id } ); |
132 |
my $record = _get_record_for_export( { %$params, record_id => $record_id } ); |
|
|
133 |
next unless $record; |
131 |
print MARC::File::XML::record($record); |
134 |
print MARC::File::XML::record($record); |
132 |
print "\n"; |
135 |
print "\n"; |
133 |
} |
136 |
} |
134 |
- |
|
|