View | Details | Raw Unified | Return to bug 20551
Collapse All | Expand All

(-)a/Koha/Exporter/Record.pm (-7 / +9 lines)
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
- 

Return to bug 20551