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