| 
      
            Lines 14-24
          use Data::Dumper;
      
      
        Link Here
      
     | 
  
        
          | 14 | 
           | 
          14 | 
           | 
        
        
          | 15 | 
          use Test::More tests => 21;  | 
          15 | 
          use Test::More tests => 21;  | 
        
        
          | 16 | 
           | 
          16 | 
           | 
        
            
              | 17 | 
               | 
               | 
               | 
            
        
          | 18 | 
          use C4::Branch;  | 
          17 | 
          use C4::Branch;  | 
        
          
            
              | 19 | 
              use C4::ItemType;  | 
              18 | 
              use C4::Branch;  | 
            
        
          | 20 | 
          use C4::Members;  | 
          19 | 
          use C4::Members;  | 
        
        
          | 21 | 
           | 
          20 | 
           | 
        
            
               | 
               | 
              21 | 
              use Koha::ItemTypes;  | 
            
            
              | 22 | 
               | 
            
        
          | 22 | 
          BEGIN { | 
          23 | 
          BEGIN { | 
        
        
          | 23 | 
              use FindBin;  | 
          24 | 
              use FindBin;  | 
        
        
          | 24 | 
              use lib $FindBin::Bin;  | 
          25 | 
              use lib $FindBin::Bin;  | 
        
  
    | 
      
            Lines 49-57
          my $branches = C4::Branch::GetBranches;
      
      
        Link Here
      
     | 
  
        
          | 49 | 
          my @other_branches = grep { $_ ne $borrower_branchcode } keys %$branches; | 
          50 | 
          my @other_branches = grep { $_ ne $borrower_branchcode } keys %$branches; | 
        
        
          | 50 | 
          my $least_cost_branch_code = pop @other_branches  | 
          51 | 
          my $least_cost_branch_code = pop @other_branches  | 
        
        
          | 51 | 
            or BAIL_OUT("No point testing only one branch..."); | 
          52 | 
            or BAIL_OUT("No point testing only one branch..."); | 
        
          
            
              | 52 | 
              my @item_types = C4::ItemType->all;  | 
              53 | 
              my $itemtype = Koha::ItemTypes->search({ notforloan => 1 })->next; | 
            
            
              | 53 | 
              my $itemtype = grep { $_->{notforloan} == 1 } @item_types | 
              54 | 
              $itemtype or BAIL_OUT("No adequate itemtype"); | 
            
            
              | 54 | 
                or BAIL_OUT("No adequate itemtype"); | 
               | 
               | 
            
        
          | 55 | 
           | 
          55 | 
           | 
        
        
          | 56 | 
          #Set up the stage  | 
          56 | 
          #Set up the stage  | 
        
        
          | 57 | 
          # Sysprefs and cost matrix  | 
          57 | 
          # Sysprefs and cost matrix  | 
        
  
    | 
      
            Lines 168-174
          $dbh->do("DELETE FROM default_circ_rules");
      
      
        Link Here
      
     | 
  
        
          | 168 | 
          C4::Context->set_preference('UseTransportCostMatrix', 0); | 
          168 | 
          C4::Context->set_preference('UseTransportCostMatrix', 0); | 
        
        
          | 169 | 
           | 
          169 | 
           | 
        
        
          | 170 | 
          my @branchcodes = keys %$branches;  | 
          170 | 
          my @branchcodes = keys %$branches;  | 
        
          
            
              | 171 | 
              ( $itemtype ) = @{ $dbh->selectrow_arrayref("SELECT itemtype FROM itemtypes LIMIT 1") }; | 
              171 | 
              $itemtype = Koha::ItemTypes->search->next;  | 
            
        
          | 172 | 
           | 
          172 | 
           | 
        
        
          | 173 | 
          my $borrowernumber1 = AddMember(  | 
          173 | 
          my $borrowernumber1 = AddMember(  | 
        
        
          | 174 | 
              (  | 
          174 | 
              (  | 
        
            
              | 175 | 
              -   | 
               | 
               |