Lines 29-39
sub _get_record_for_export {
Link Here
|
29 |
$record = _get_authority_for_export( { %$params, authid => $record_id } ); |
29 |
$record = _get_authority_for_export( { %$params, authid => $record_id } ); |
30 |
} elsif ( $record_type eq 'bibs' ) { |
30 |
} elsif ( $record_type eq 'bibs' ) { |
31 |
$record = _get_biblio_for_export( { %$params, biblionumber => $record_id } ); |
31 |
$record = _get_biblio_for_export( { %$params, biblionumber => $record_id } ); |
|
|
32 |
} elsif ( $record_type eq 'deleted_bibs' ) { |
33 |
$record = _get_deleted_biblio_for_export( { %$params, biblionumber => $record_id } ); |
32 |
} else { |
34 |
} else { |
33 |
Koha::Logger->get->warn( "Record_type $record_type not supported." ); |
35 |
Koha::Logger->get->warn( "Record type $record_type not supported." ); |
34 |
} |
36 |
} |
35 |
if ( !$record ) { |
37 |
if ( !$record ) { |
36 |
Koha::Logger->get->warn( "Record $record_id could not be exported." ); |
38 |
Koha::Logger->get->warn( "Record $record_id with record type $record_type could not be exported." ); |
37 |
return; |
39 |
return; |
38 |
} |
40 |
} |
39 |
|
41 |
|
Lines 115-122
sub _get_deleted_biblio_for_export {
Link Here
|
115 |
my $biblionumber = $params->{biblionumber}; |
117 |
my $biblionumber = $params->{biblionumber}; |
116 |
# Creating schema is expensive, allow caller to |
118 |
# Creating schema is expensive, allow caller to |
117 |
# pass it so don't have to recreate for each call |
119 |
# pass it so don't have to recreate for each call |
118 |
my $resultset = $params->{resultset} || Koha::Database |
120 |
my $resultset = $params->{resultset} || Koha::Database->new() |
119 |
->new() |
|
|
120 |
->schema() |
121 |
->schema() |
121 |
->resultset('DeletedbiblioMetadata'); |
122 |
->resultset('DeletedbiblioMetadata'); |
122 |
my $marc_flavour = C4::Context->preference('marcflavour'); |
123 |
my $marc_flavour = C4::Context->preference('marcflavour'); |
Lines 205-211
sub export {
Link Here
|
205 |
Koha::Logger->get->warn( "No record_type given." ); |
206 |
Koha::Logger->get->warn( "No record_type given." ); |
206 |
return; |
207 |
return; |
207 |
} |
208 |
} |
208 |
return unless (@{$record_ids} || @{$deleted_record_ids} && $format ne 'csv'); |
209 |
return unless @{$record_ids} || @{$deleted_record_ids} && $format ne 'csv'; |
209 |
|
210 |
|
210 |
my $fh; |
211 |
my $fh; |
211 |
if ( $output_filepath ) { |
212 |
if ( $output_filepath ) { |
Lines 225-238
sub export {
Link Here
|
225 |
|
226 |
|
226 |
my @deleted_records; |
227 |
my @deleted_records; |
227 |
if (@{$deleted_record_ids}) { |
228 |
if (@{$deleted_record_ids}) { |
228 |
my $resultset = Koha::Database |
229 |
my $resultset = Koha::Database->new() |
229 |
->new() |
230 |
->schema() |
230 |
->schema() |
231 |
->resultset('DeletedbiblioMetadata'); |
231 |
->resultset('DeletedbiblioMetadata'); |
232 |
|
232 |
@deleted_records = map { |
233 |
@deleted_records = map { |
233 |
my $record = _get_deleted_biblio_for_export({ |
234 |
my $record = _get_record_for_export({ |
234 |
biblionumber => $_, |
235 |
%{$params}, |
235 |
resultset => $resultset, |
236 |
record_type => 'deleted_bibs', |
|
|
237 |
record_id => $_, |
238 |
resultset => $resultset |
236 |
}); |
239 |
}); |
237 |
$record ? $record : (); |
240 |
$record ? $record : (); |
238 |
} @{$deleted_record_ids}; |
241 |
} @{$deleted_record_ids}; |