| 
      
            Lines 163-175
          $dbh->do("DELETE FROM items WHERE holdingbranch = '$borrower_branchcode'");
      
      
        Link Here
      
     | 
  
        
          | 163 | 
          # Frst branch from StaticHoldsQueueWeight  | 
          163 | 
          # Frst branch from StaticHoldsQueueWeight  | 
        
        
          | 164 | 
          test_queue ('take from lowest cost branch', 0, $borrower_branchcode, $other_branches[0]); | 
          164 | 
          test_queue ('take from lowest cost branch', 0, $borrower_branchcode, $other_branches[0]); | 
        
        
          | 165 | 
          test_queue ('take from lowest cost branch', 1, $borrower_branchcode, $least_cost_branch_code); | 
          165 | 
          test_queue ('take from lowest cost branch', 1, $borrower_branchcode, $least_cost_branch_code); | 
        
          
            
              | 166 | 
              my $queue = C4::HoldsQueue::GetHoldsQueueItems({ branchlmit => $least_cost_branch_code}) || []; | 
              166 | 
              my $queue = C4::HoldsQueue::GetHoldsQueueItems({ branchlimit => $least_cost_branch_code}) || []; | 
            
            
              | 167 | 
              my $queue_item = $queue->[0];  | 
              167 | 
              my $queue_item = $queue->next;  | 
            
        
          | 168 | 
          ok( $queue_item  | 
          168 | 
          ok( $queue_item  | 
        
          
            
              | 169 | 
               && $queue_item->{pickbranch} eq $borrower_branchcode | 
              169 | 
               && $queue_item->pickbranch eq $borrower_branchcode  | 
            
            
              | 170 | 
               && $queue_item->{holdingbranch} eq $least_cost_branch_code, "GetHoldsQueueItems" ) | 
              170 | 
               && $queue_item->item->holdingbranch eq $least_cost_branch_code, "GetHoldsQueueItems" )  | 
            
            
              | 171 | 
                or diag( "Expected item for pick $borrower_branchcode, hold $least_cost_branch_code, got ".Dumper($queue_item) );  | 
              171 | 
                or diag( "Expected item for pick $borrower_branchcode, hold $least_cost_branch_code, got ".Dumper($queue_item->unblessed) );  | 
            
            
              | 172 | 
              ok( exists($queue_item->{itype}), 'item type included in queued items list (bug 5825)' ); | 
              172 | 
              ok( $queue_item->item->effective_itemtype, 'item type included in queued items list (bug 5825)' );  | 
            
        
          | 173 | 
           | 
          173 | 
           | 
        
        
          | 174 | 
          ok(  | 
          174 | 
          ok(  | 
        
        
          | 175 | 
              C4::HoldsQueue::least_cost_branch( 'B', [ 'A', 'B', 'C' ] ) eq 'B',  | 
          175 | 
              C4::HoldsQueue::least_cost_branch( 'B', [ 'A', 'B', 'C' ] ) eq 'B',  | 
        
  
    | 
      
            Lines 1944-1968
          subtest "GetHoldsQueueItems" => sub {
      
      
        Link Here
      
     | 
  
        
          | 1944 | 
               " );  | 
          1944 | 
               " );  | 
        
        
          | 1945 | 
           | 
          1945 | 
           | 
        
        
          | 1946 | 
              my $queue_items = GetHoldsQueueItems();  | 
          1946 | 
              my $queue_items = GetHoldsQueueItems();  | 
        
          
            
              | 1947 | 
                  is( scalar @$queue_items, $count + 3, 'Three items added to queue' );  | 
              1947 | 
                  is( $queue_items->count, $count + 3, 'Three items added to queue' );  | 
            
        
          | 1948 | 
           | 
          1948 | 
           | 
        
        
          | 1949 | 
              $queue_items = GetHoldsQueueItems( { itemtypeslimit => $item_1->itype } ); | 
          1949 | 
              $queue_items = GetHoldsQueueItems( { itemtypeslimit => $item_1->itype } ); | 
        
          
            
              | 1950 | 
                  is( scalar @$queue_items,  | 
              1950 | 
                  is( $queue_items->count,  | 
            
        
          | 1951 | 
                  3, 'Three items of same itemtype found when itemtypeslimit passed' );  | 
          1951 | 
                  3, 'Three items of same itemtype found when itemtypeslimit passed' );  | 
        
        
          | 1952 | 
           | 
          1952 | 
           | 
        
        
          | 1953 | 
              $queue_items = GetHoldsQueueItems(  | 
          1953 | 
              $queue_items = GetHoldsQueueItems(  | 
        
        
          | 1954 | 
                  { itemtypeslimit => $item_1->itype, ccodeslimit => $item_2->ccode } ); | 
          1954 | 
                  { itemtypeslimit => $item_1->itype, ccodeslimit => $item_2->ccode } ); | 
        
          
            
              | 1955 | 
                  is( scalar @$queue_items,  | 
              1955 | 
                  is( $queue_items->count,  | 
            
        
          | 1956 | 
                  2, 'Two items of same collection found when ccodeslimit passed' );  | 
          1956 | 
                  2, 'Two items of same collection found when ccodeslimit passed' );  | 
        
        
          | 1957 | 
           | 
          1957 | 
           | 
        
          
            
              | 1958 | 
                  @$queue_items = GetHoldsQueueItems(  | 
              1958 | 
                  $queue_items = GetHoldsQueueItems(  | 
            
        
          | 1959 | 
                  { | 
          1959 | 
                  { | 
        
        
          | 1960 | 
                      itemtypeslimit => $item_1->itype,  | 
          1960 | 
                      itemtypeslimit => $item_1->itype,  | 
        
        
          | 1961 | 
                      ccodeslimit    => $item_2->ccode,  | 
          1961 | 
                      ccodeslimit    => $item_2->ccode,  | 
        
        
          | 1962 | 
                      locationslimit => $item_3->location  | 
          1962 | 
                      locationslimit => $item_3->location  | 
        
        
          | 1963 | 
                  }  | 
          1963 | 
                  }  | 
        
        
          | 1964 | 
              );  | 
          1964 | 
              );  | 
        
          
            
              | 1965 | 
                  is( scalar @$queue_items,  | 
              1965 | 
                  is( scalar $queue_items->count,  | 
            
        
          | 1966 | 
                  1, 'One item of shleving location found when locationslimit passed' );  | 
          1966 | 
                  1, 'One item of shleving location found when locationslimit passed' );  | 
        
        
          | 1967 | 
           | 
          1967 | 
           | 
        
        
          | 1968 | 
              $schema->storage->txn_rollback;  | 
          1968 | 
              $schema->storage->txn_rollback;  | 
        
            
              | 1969 | 
              -   | 
               | 
               |