View | Details | Raw Unified | Return to bug 24350
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Libraries.t (-18 / +17 lines)
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
- 

Return to bug 24350