|
Lines 123-131
sub _get_deleted_biblio_for_export {
Link Here
|
| 123 |
my ($params) = @_; |
123 |
my ($params) = @_; |
| 124 |
my $biblionumber = $params->{biblionumber}; |
124 |
my $biblionumber = $params->{biblionumber}; |
| 125 |
|
125 |
|
| 126 |
# Creating schema is expensive, allow caller to |
126 |
# Creating schema is expensive, so we cache it |
| 127 |
# pass it so don't have to recreate for each call |
127 |
my $memory_cache = Koha::Cache::Memory::Lite->get_instance(); |
| 128 |
my $resultset = $params->{resultset} || Koha::Database->new()->schema()->resultset('DeletedbiblioMetadata'); |
128 |
my $resultset = $memory_cache->get_from_cache('_get_deleted_biblio_for_export:resultset'); |
|
|
129 |
unless ($resultset) { |
| 130 |
$resultset = Koha::Database->new()->schema()->resultset('DeletedbiblioMetadata'); |
| 131 |
$memory_cache->set_in_cache('_get_deleted_biblio_for_export:resultset', $resultset); |
| 132 |
} |
| 133 |
|
| 129 |
my $marc_flavour = C4::Context->preference('marcflavour'); |
134 |
my $marc_flavour = C4::Context->preference('marcflavour'); |
| 130 |
my $biblio_metadata = $resultset->find( |
135 |
my $biblio_metadata = $resultset->find( |
| 131 |
{ |
136 |
{ |
|
Lines 234-240
sub export {
Link Here
|
| 234 |
if ( $format eq 'xml' || $format eq 'iso2709' ) { |
239 |
if ( $format eq 'xml' || $format eq 'iso2709' ) { |
| 235 |
my @record_ids = reverse @{$record_ids}; |
240 |
my @record_ids = reverse @{$record_ids}; |
| 236 |
my @deleted_record_ids = reverse @{$deleted_record_ids}; |
241 |
my @deleted_record_ids = reverse @{$deleted_record_ids}; |
| 237 |
my $deleted_resultset = Koha::Database->new()->schema()->resultset('DeletedbiblioMetadata'); |
|
|
| 238 |
|
242 |
|
| 239 |
my $records_iterator = sub { |
243 |
my $records_iterator = sub { |
| 240 |
if (my $record_id = pop(@record_ids)) { |
244 |
if (my $record_id = pop(@record_ids)) { |
|
Lines 245-252
sub export {
Link Here
|
| 245 |
{ |
249 |
{ |
| 246 |
%{$params}, |
250 |
%{$params}, |
| 247 |
record_type => 'deleted_bibs', |
251 |
record_type => 'deleted_bibs', |
| 248 |
record_id => $deleted_record_id, |
252 |
record_id => $deleted_record_id |
| 249 |
resultset => $deleted_resultset |
|
|
| 250 |
} |
253 |
} |
| 251 |
); |
254 |
); |
| 252 |
} |
255 |
} |
| 253 |
- |
|
|