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