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