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