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 |
- |
|
|