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

(-)a/acqui/addorderiso2709.pl (-4 / +6 lines)
Lines 30-36 use Encode; Link Here
30
use C4::Context;
30
use C4::Context;
31
use C4::Auth qw( get_template_and_user );
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output qw( output_html_with_http_headers );
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
33
use C4::ImportBatch qw( GetImportRecordMarc GetImportRecordMatches SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
34
use C4::Matcher;
34
use C4::Matcher;
35
use C4::Search qw( FindDuplicate );
35
use C4::Search qw( FindDuplicate );
36
use C4::Biblio qw(
36
use C4::Biblio qw(
Lines 417-424 sub import_batches_list { Link Here
417
    foreach my $batch (@$batches) {
417
    foreach my $batch (@$batches) {
418
        if ( $batch->{'import_status'} =~ /^staged$|^reverted$/ && $batch->{'record_type'} eq 'biblio') {
418
        if ( $batch->{'import_status'} =~ /^staged$|^reverted$/ && $batch->{'record_type'} eq 'biblio') {
419
            # check if there is at least 1 line still staged
419
            # check if there is at least 1 line still staged
420
            my $stagedList=GetImportRecordsRange($batch->{'import_batch_id'}, undef, 1, $batch->{import_status}, { order_by_direction => 'ASC' });
420
            my $import_records_count = Koha::Import::Records->search({
421
            if (scalar @$stagedList) {
421
                import_batch_id => $batch->{'import_batch_id'},
422
                status          => $batch->{import_status}
423
            })->count;
424
            if ( $import_records_count ) {
422
                push @list, {
425
                push @list, {
423
                        import_batch_id => $batch->{'import_batch_id'},
426
                        import_batch_id => $batch->{'import_batch_id'},
424
                        num_records => $batch->{'num_records'},
427
                        num_records => $batch->{'num_records'},
425
- 

Return to bug 31569