Lines 31-41
sub _get_record_for_export {
Link Here
|
31 |
$record = _get_authority_for_export( { %$params, authid => $record_id } ); |
31 |
$record = _get_authority_for_export( { %$params, authid => $record_id } ); |
32 |
} elsif ( $record_type eq 'bibs' ) { |
32 |
} elsif ( $record_type eq 'bibs' ) { |
33 |
$record = _get_biblio_for_export( { %$params, biblionumber => $record_id } ); |
33 |
$record = _get_biblio_for_export( { %$params, biblionumber => $record_id } ); |
|
|
34 |
} elsif ( $record_type eq 'deleted_bibs' ) { |
35 |
$record = _get_deleted_biblio_for_export( { %$params, biblionumber => $record_id } ); |
34 |
} else { |
36 |
} else { |
35 |
Koha::Logger->get->warn( "Record_type $record_type not supported." ); |
37 |
Koha::Logger->get->warn( "Record type $record_type not supported." ); |
36 |
} |
38 |
} |
37 |
if ( !$record ) { |
39 |
if ( !$record ) { |
38 |
Koha::Logger->get->warn( "Record $record_id could not be exported." ); |
40 |
Koha::Logger->get->warn( "Record $record_id with record type $record_type could not be exported." ); |
39 |
return; |
41 |
return; |
40 |
} |
42 |
} |
41 |
|
43 |
|
Lines 117-124
sub _get_deleted_biblio_for_export {
Link Here
|
117 |
my $biblionumber = $params->{biblionumber}; |
119 |
my $biblionumber = $params->{biblionumber}; |
118 |
# Creating schema is expensive, allow caller to |
120 |
# Creating schema is expensive, allow caller to |
119 |
# pass it so don't have to recreate for each call |
121 |
# pass it so don't have to recreate for each call |
120 |
my $resultset = $params->{resultset} || Koha::Database |
122 |
my $resultset = $params->{resultset} || Koha::Database->new() |
121 |
->new() |
|
|
122 |
->schema() |
123 |
->schema() |
123 |
->resultset('DeletedbiblioMetadata'); |
124 |
->resultset('DeletedbiblioMetadata'); |
124 |
my $marc_flavour = C4::Context->preference('marcflavour'); |
125 |
my $marc_flavour = C4::Context->preference('marcflavour'); |
Lines 218-224
sub export {
Link Here
|
218 |
Koha::Logger->get->warn( "No record_type given." ); |
219 |
Koha::Logger->get->warn( "No record_type given." ); |
219 |
return; |
220 |
return; |
220 |
} |
221 |
} |
221 |
return unless (@{$record_ids} || @{$deleted_record_ids} && $format ne 'csv'); |
222 |
return unless @{$record_ids} || @{$deleted_record_ids} && $format ne 'csv'; |
222 |
|
223 |
|
223 |
my $fh; |
224 |
my $fh; |
224 |
if ( $output_filepath ) { |
225 |
if ( $output_filepath ) { |
Lines 238-251
sub export {
Link Here
|
238 |
|
239 |
|
239 |
my @deleted_records; |
240 |
my @deleted_records; |
240 |
if (@{$deleted_record_ids}) { |
241 |
if (@{$deleted_record_ids}) { |
241 |
my $resultset = Koha::Database |
242 |
my $resultset = Koha::Database->new() |
242 |
->new() |
243 |
->schema() |
243 |
->schema() |
244 |
->resultset('DeletedbiblioMetadata'); |
244 |
->resultset('DeletedbiblioMetadata'); |
245 |
|
245 |
@deleted_records = map { |
246 |
@deleted_records = map { |
246 |
my $record = _get_deleted_biblio_for_export({ |
247 |
my $record = _get_record_for_export({ |
247 |
biblionumber => $_, |
248 |
%{$params}, |
248 |
resultset => $resultset, |
249 |
record_type => 'deleted_bibs', |
|
|
250 |
record_id => $_, |
251 |
resultset => $resultset |
249 |
}); |
252 |
}); |
250 |
$record ? $record : (); |
253 |
$record ? $record : (); |
251 |
} @{$deleted_record_ids}; |
254 |
} @{$deleted_record_ids}; |