Lines 40-45
use Koha::Patrons;
Link Here
|
40 |
use Koha::Subscriptions; |
40 |
use Koha::Subscriptions; |
41 |
use Koha::Account::Lines; |
41 |
use Koha::Account::Lines; |
42 |
use Koha::Account::Offsets; |
42 |
use Koha::Account::Offsets; |
|
|
43 |
use Koha::Items; |
43 |
|
44 |
|
44 |
my $schema = Koha::Database->schema; |
45 |
my $schema = Koha::Database->schema; |
45 |
$schema->storage->txn_begin; |
46 |
$schema->storage->txn_begin; |
Lines 2365-2371
subtest '_FixOverduesOnReturn' => sub {
Link Here
|
2365 |
}; |
2366 |
}; |
2366 |
|
2367 |
|
2367 |
subtest 'Set waiting flag' => sub { |
2368 |
subtest 'Set waiting flag' => sub { |
2368 |
plan tests => 4; |
2369 |
plan tests => 8; |
2369 |
|
2370 |
|
2370 |
my $library_1 = $builder->build( { source => 'Branch' } ); |
2371 |
my $library_1 = $builder->build( { source => 'Branch' } ); |
2371 |
my $patron_1 = $builder->build( { source => 'Borrower', value => { branchcode => $library_1->{branchcode}, categorycode => $patron_category->{categorycode} } } ); |
2372 |
my $patron_1 = $builder->build( { source => 'Borrower', value => { branchcode => $library_1->{branchcode}, categorycode => $patron_category->{categorycode} } } ); |
Lines 2413-2418
subtest 'Set waiting flag' => sub {
Link Here
|
2413 |
is( $hold->found, 'W', 'Hold is waiting' ); |
2414 |
is( $hold->found, 'W', 'Hold is waiting' ); |
2414 |
( $status ) = CheckReserves($item->{itemnumber}); |
2415 |
( $status ) = CheckReserves($item->{itemnumber}); |
2415 |
is( $status, 'Waiting', 'Now the hold is waiting'); |
2416 |
is( $status, 'Waiting', 'Now the hold is waiting'); |
|
|
2417 |
|
2418 |
#Bug 21944 - Waiting transfer checked in at branch other than pickup location |
2419 |
|
2420 |
$do_transfer = 1; |
2421 |
AddReturn( $item->{barcode}, $library_1->{branchcode} ); |
2422 |
ModReserveAffect( $item->{itemnumber}, undef, $do_transfer, $reserve_id ); |
2423 |
$hold = Koha::Holds->find( $reserve_id ); |
2424 |
is( $hold->found, 'T', 'Hold is in transit' ); |
2425 |
is( $hold->branchcode, $library_2->{branchcode}, 'Item destination matches the pickup branch'); |
2426 |
( $status ) = CheckReserves($item->{itemnumber}); |
2427 |
is( $status, 'Reserved', 'Now the hold is set back to reserved'); |
2416 |
}; |
2428 |
}; |
2417 |
|
2429 |
|
2418 |
subtest 'CanBookBeIssued | is_overdue' => sub { |
2430 |
subtest 'CanBookBeIssued | is_overdue' => sub { |
2419 |
- |
|
|