|
Lines 159-172
sub _get_biblio_for_export {
Link Here
|
| 159 |
sub export { |
159 |
sub export { |
| 160 |
my ($params) = @_; |
160 |
my ($params) = @_; |
| 161 |
|
161 |
|
| 162 |
my $record_type = $params->{record_type}; |
162 |
my $record_type = $params->{record_type}; |
| 163 |
my $record_ids = $params->{record_ids} || []; |
163 |
my $record_ids = $params->{record_ids} || []; |
| 164 |
my $format = $params->{format}; |
164 |
my $format = $params->{format}; |
| 165 |
my $itemnumbers = $params->{itemnumbers} || []; # Does not make sense with record_type eq auths |
165 |
my $itemnumbers = $params->{itemnumbers} || []; # Does not make sense with record_type eq auths |
| 166 |
my $export_items = $params->{export_items}; |
166 |
my $export_items = $params->{export_items}; |
| 167 |
my $dont_export_fields = $params->{dont_export_fields}; |
167 |
my $dont_export_fields = $params->{dont_export_fields}; |
| 168 |
my $csv_profile_id = $params->{csv_profile_id}; |
168 |
my $csv_profile_id = $params->{csv_profile_id}; |
| 169 |
my $output_filepath = $params->{output_filepath}; |
169 |
my $output_filepath = $params->{output_filepath}; |
| 170 |
my $marc_modification_template_id = $params->{marc_modification_template_id}; |
170 |
my $marc_modification_template_id = $params->{marc_modification_template_id}; |
| 171 |
|
171 |
|
| 172 |
if ( !$record_type ) { |
172 |
if ( !$record_type ) { |
|
Lines 197-203
sub export {
Link Here
|
| 197 |
} |
197 |
} |
| 198 |
|
198 |
|
| 199 |
if ($marc_modification_template_id) { |
199 |
if ($marc_modification_template_id) { |
| 200 |
C4::MarcModificationTemplates::ModifyRecordWithTemplate($marc_modification_template_id, $record); |
200 |
C4::MarcModificationTemplates::ModifyRecordWithTemplate( $marc_modification_template_id, $record ); |
| 201 |
} |
201 |
} |
| 202 |
|
202 |
|
| 203 |
print $record->as_usmarc(); |
203 |
print $record->as_usmarc(); |
|
Lines 214-220
sub export {
Link Here
|
| 214 |
next unless $record; |
214 |
next unless $record; |
| 215 |
|
215 |
|
| 216 |
if ($marc_modification_template_id) { |
216 |
if ($marc_modification_template_id) { |
| 217 |
C4::MarcModificationTemplates::ModifyRecordWithTemplate($marc_modification_template_id, $record); |
217 |
C4::MarcModificationTemplates::ModifyRecordWithTemplate( $marc_modification_template_id, $record ); |
| 218 |
} |
218 |
} |
| 219 |
|
219 |
|
| 220 |
print MARC::File::XML::record($record); |
220 |
print MARC::File::XML::record($record); |