| Lines 192-198
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 192 |             my $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 192 |             my $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 
        
          | 193 |             my $found = 0; | 193 |             my $found = 0; | 
        
          | 194 |             foreach my $lib (@{$pickup}) { | 194 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 195 |                 if ($lib->branchcode eq $limit->toBranch) { | 195 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 196 |                     $found = 1; | 196 |                     $found = 1; | 
        
          | 197 |                 } | 197 |                 } | 
        
          | 198 |             } | 198 |             } | 
  
    | Lines 201-207
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 201 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 201 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 
        
          | 202 |             $found = 0; | 202 |             $found = 0; | 
        
          | 203 |             foreach my $lib (@{$pickup}) { | 203 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 204 |                 if ($lib->branchcode eq $limit->toBranch) { | 204 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 205 |                     $found = 1; | 205 |                     $found = 1; | 
        
          | 206 |                 } | 206 |                 } | 
        
          | 207 |             } | 207 |             } | 
  
    | Lines 221-227
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 221 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1  }); | 221 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1  }); | 
        
          | 222 |             $found = 0; | 222 |             $found = 0; | 
        
          | 223 |             foreach my $lib (@{$pickup}) { | 223 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 224 |                 if ($lib->branchcode eq $limit->toBranch) { | 224 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 225 |                     $found = 1; | 225 |                     $found = 1; | 
        
          | 226 |                 } | 226 |                 } | 
        
          | 227 |             } | 227 |             } | 
  
    | Lines 230-236
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 230 |             $pickup = Koha::Libraries->pickup_locations({ item => $item2, patron => $patron1 }); | 230 |             $pickup = Koha::Libraries->pickup_locations({ item => $item2, patron => $patron1 }); | 
        
          | 231 |             $found = 0; | 231 |             $found = 0; | 
        
          | 232 |             foreach my $lib (@{$pickup}) { | 232 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 233 |                 if ($lib->branchcode eq $limit->toBranch) { | 233 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 234 |                     $found = 1; | 234 |                     $found = 1; | 
        
          | 235 |                 } | 235 |                 } | 
        
          | 236 |             } | 236 |             } | 
  
    | Lines 240-246
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 240 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 240 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 
        
          | 241 |             $found = 0; | 241 |             $found = 0; | 
        
          | 242 |             foreach my $lib (@{$pickup}) { | 242 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 243 |                 if ($lib->branchcode eq $limit->toBranch) { | 243 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 244 |                     $found = 1; | 244 |                     $found = 1; | 
        
          | 245 |                 } | 245 |                 } | 
        
          | 246 |             } | 246 |             } | 
  
    | Lines 249-255
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 249 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 249 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 
        
          | 250 |             $found = 0; | 250 |             $found = 0; | 
        
          | 251 |             foreach my $lib (@{$pickup}) { | 251 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 252 |                 if ($lib->branchcode eq $limit->toBranch) { | 252 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 253 |                     $found = 1; | 253 |                     $found = 1; | 
        
          | 254 |                 } | 254 |                 } | 
        
          | 255 |             } | 255 |             } | 
  
    | Lines 278-284
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 278 |             my $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 278 |             my $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 
        
          | 279 |             my $found = 0; | 279 |             my $found = 0; | 
        
          | 280 |             foreach my $lib (@{$pickup}) { | 280 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 281 |                 if ($lib->branchcode eq $limit->toBranch) { | 281 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 282 |                     $found = 1; | 282 |                     $found = 1; | 
        
          | 283 |                 } | 283 |                 } | 
        
          | 284 |             } | 284 |             } | 
  
    | Lines 287-293
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 287 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 287 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 
        
          | 288 |             $found = 0; | 288 |             $found = 0; | 
        
          | 289 |             foreach my $lib (@{$pickup}) { | 289 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 290 |                 if ($lib->branchcode eq $limit->toBranch) { | 290 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 291 |                     $found = 1; | 291 |                     $found = 1; | 
        
          | 292 |                 } | 292 |                 } | 
        
          | 293 |             } | 293 |             } | 
  
    | Lines 302-308
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 302 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 302 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 
        
          | 303 |             $found = 0; | 303 |             $found = 0; | 
        
          | 304 |             foreach my $lib (@{$pickup}) { | 304 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 305 |                 if ($lib->branchcode eq $limit->toBranch) { | 305 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 306 |                     $found = 1; | 306 |                     $found = 1; | 
        
          | 307 |                 } | 307 |                 } | 
        
          | 308 |             } | 308 |             } | 
  
    | Lines 319-325
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 319 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 319 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 
        
          | 320 |             $found = 0; | 320 |             $found = 0; | 
        
          | 321 |             foreach my $lib (@{$pickup}) { | 321 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 322 |                 if ($lib->branchcode eq $limit->toBranch) { | 322 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 323 |                     $found = 1; | 323 |                     $found = 1; | 
        
          | 324 |                 } | 324 |                 } | 
        
          | 325 |             } | 325 |             } | 
  
    | Lines 328-334
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 328 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 328 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 
        
          | 329 |             $found = 0; | 329 |             $found = 0; | 
        
          | 330 |             foreach my $lib (@{$pickup}) { | 330 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 331 |                 if ($lib->branchcode eq $limit->toBranch) { | 331 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 332 |                     $found = 1; | 332 |                     $found = 1; | 
        
          | 333 |                 } | 333 |                 } | 
        
          | 334 |             } | 334 |             } | 
  
    | Lines 355-361
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 355 |             my $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 355 |             my $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 
        
          | 356 |             my $found = 0; | 356 |             my $found = 0; | 
        
          | 357 |             foreach my $lib (@{$pickup}) { | 357 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 358 |                 if ($lib->branchcode eq $limit->toBranch) { | 358 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 359 |                     $found = 1; | 359 |                     $found = 1; | 
        
          | 360 |                 } | 360 |                 } | 
        
          | 361 |             } | 361 |             } | 
  
    | Lines 364-370
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 364 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 364 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 
        
          | 365 |             $found = 0; | 365 |             $found = 0; | 
        
          | 366 |             foreach my $lib (@{$pickup}) { | 366 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 367 |                 if ($lib->branchcode eq $limit->toBranch) { | 367 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 368 |                     $found = 1; | 368 |                     $found = 1; | 
        
          | 369 |                 } | 369 |                 } | 
        
          | 370 |             } | 370 |             } | 
  
    | Lines 384-390
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 384 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 384 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 
        
          | 385 |             $found = 0; | 385 |             $found = 0; | 
        
          | 386 |             foreach my $lib (@{$pickup}) { | 386 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 387 |                 if ($lib->branchcode eq $limit->toBranch) { | 387 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 388 |                     $found = 1; | 388 |                     $found = 1; | 
        
          | 389 |                 } | 389 |                 } | 
        
          | 390 |             } | 390 |             } | 
  
    | Lines 393-399
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 393 |             $pickup = Koha::Libraries->pickup_locations({ item => $item3, patron => $patron1 }); | 393 |             $pickup = Koha::Libraries->pickup_locations({ item => $item3, patron => $patron1 }); | 
        
          | 394 |             $found = 0; | 394 |             $found = 0; | 
        
          | 395 |             foreach my $lib (@{$pickup}) { | 395 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 396 |                 if ($lib->branchcode eq $limit->toBranch) { | 396 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 397 |                     $found = 1; | 397 |                     $found = 1; | 
        
          | 398 |                 } | 398 |                 } | 
        
          | 399 |             } | 399 |             } | 
  
    | Lines 403-409
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 403 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 403 |             $pickup = Koha::Libraries->pickup_locations({ biblio => $biblio->biblionumber, patron => $patron1 }); | 
        
          | 404 |             $found = 0; | 404 |             $found = 0; | 
        
          | 405 |             foreach my $lib (@{$pickup}) { | 405 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 406 |                 if ($lib->branchcode eq $limit->toBranch) { | 406 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 407 |                     $found = 1; | 407 |                     $found = 1; | 
        
          | 408 |                 } | 408 |                 } | 
        
          | 409 |             } | 409 |             } | 
  
    | Lines 412-418
          subtest 'pickup_locations' => sub {
      
      
        Link Here | 
        
          | 412 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 412 |             $pickup = Koha::Libraries->pickup_locations({ item => $item1, patron => $patron1 }); | 
        
          | 413 |             $found = 0; | 413 |             $found = 0; | 
        
          | 414 |             foreach my $lib (@{$pickup}) { | 414 |             foreach my $lib (@{$pickup}) { | 
          
            
              | 415 |                 if ($lib->branchcode eq $limit->toBranch) { | 415 |                 if ($lib->{branchcode} eq $limit->toBranch) { | 
        
          | 416 |                     $found = 1; | 416 |                     $found = 1; | 
        
          | 417 |                 } | 417 |                 } | 
        
          | 418 |             } | 418 |             } | 
            
              | 419 | -  |  |  |