|
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 211-217
sub export {
Link Here
|
| 211 |
Koha::Logger->get->warn("No record_type given."); |
213 |
Koha::Logger->get->warn("No record_type given."); |
| 212 |
return; |
214 |
return; |
| 213 |
} |
215 |
} |
| 214 |
return unless ( @{$record_ids} || @{$deleted_record_ids} && $format ne 'csv' ); |
216 |
return unless @{$record_ids} || @{$deleted_record_ids} && $format ne 'csv'; |
| 215 |
|
217 |
|
| 216 |
my $fh; |
218 |
my $fh; |
| 217 |
if ($output_filepath) { |
219 |
if ($output_filepath) { |
|
Lines 232-242
sub export {
Link Here
|
| 232 |
my @deleted_records; |
234 |
my @deleted_records; |
| 233 |
if ( @{$deleted_record_ids} ) { |
235 |
if ( @{$deleted_record_ids} ) { |
| 234 |
my $resultset = Koha::Database->new()->schema()->resultset('DeletedbiblioMetadata'); |
236 |
my $resultset = Koha::Database->new()->schema()->resultset('DeletedbiblioMetadata'); |
|
|
237 |
|
| 235 |
@deleted_records = map { |
238 |
@deleted_records = map { |
| 236 |
my $record = _get_deleted_biblio_for_export( |
239 |
my $record = _get_record_for_export( |
| 237 |
{ |
240 |
{ |
| 238 |
biblionumber => $_, |
241 |
%{$params}, |
| 239 |
resultset => $resultset, |
242 |
record_type => 'deleted_bibs', |
|
|
243 |
record_id => $_, |
| 244 |
resultset => $resultset |
| 240 |
} |
245 |
} |
| 241 |
); |
246 |
); |
| 242 |
$record ? $record : (); |
247 |
$record ? $record : (); |