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

(-)a/acqui/addorderiso2709.pl (-2 / +1 lines)
Lines 338-344 sub import_batches_list { Link Here
338
338
339
    my @list = ();
339
    my @list = ();
340
    foreach my $batch (@$batches) {
340
    foreach my $batch (@$batches) {
341
        if ( $batch->{'import_status'} =~ /^staged$|^reverted$/ ) {
341
        if ( $batch->{'import_status'} =~ /^staged$|^reverted$/ && $batch->{'record_type'} eq 'biblio') {
342
            # check if there is at least 1 line still staged
342
            # check if there is at least 1 line still staged
343
            my $stagedList=GetImportRecordsRange($batch->{'import_batch_id'}, undef, 1, $batch->{import_status}, { order_by_direction => 'ASC' });
343
            my $stagedList=GetImportRecordsRange($batch->{'import_batch_id'}, undef, 1, $batch->{import_status}, { order_by_direction => 'ASC' });
344
            if (scalar @$stagedList) {
344
            if (scalar @$stagedList) {
345
- 

Return to bug 9184