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