Lines 1730-1736
subtest 'AddReturn | is_overdue' => sub {
Link Here
|
1730 |
}; |
1730 |
}; |
1731 |
|
1731 |
|
1732 |
subtest 'Set waiting flag' => sub { |
1732 |
subtest 'Set waiting flag' => sub { |
1733 |
plan tests => 2; |
1733 |
plan tests => 4; |
1734 |
|
1734 |
|
1735 |
my $library_1 = $builder->build( { source => 'Branch' } ); |
1735 |
my $library_1 = $builder->build( { source => 'Branch' } ); |
1736 |
my $patron_1 = $builder->build( { source => 'Borrower', value => { branchcode => $library_1->{branchcode} } } ); |
1736 |
my $patron_1 = $builder->build( { source => 'Borrower', value => { branchcode => $library_1->{branchcode} } } ); |
Lines 1768-1779
subtest 'Set waiting flag' => sub {
Link Here
|
1768 |
my $hold = Koha::Holds->find( $reserve_id ); |
1768 |
my $hold = Koha::Holds->find( $reserve_id ); |
1769 |
is( $hold->found, 'T', 'Hold is in transit' ); |
1769 |
is( $hold->found, 'T', 'Hold is in transit' ); |
1770 |
|
1770 |
|
|
|
1771 |
my ( $status ) = CheckReserves($item->{itemnumber}); |
1772 |
is( $status, 'Reserved', 'Hold is not waiting yet'); |
1773 |
|
1771 |
set_userenv( $library_2 ); |
1774 |
set_userenv( $library_2 ); |
1772 |
$do_transfer = 0; |
1775 |
$do_transfer = 0; |
1773 |
AddReturn( $item->{barcode}, $library_2->{branchcode} ); |
1776 |
AddReturn( $item->{barcode}, $library_2->{branchcode} ); |
1774 |
ModReserveAffect( $item->{itemnumber}, undef, $do_transfer, $reserve_id ); |
1777 |
ModReserveAffect( $item->{itemnumber}, undef, $do_transfer, $reserve_id ); |
1775 |
$hold = Koha::Holds->find( $reserve_id ); |
1778 |
$hold = Koha::Holds->find( $reserve_id ); |
1776 |
is( $hold->found, 'W', 'Hold is waiting' ); |
1779 |
is( $hold->found, 'W', 'Hold is waiting' ); |
|
|
1780 |
( $status ) = CheckReserves($item->{itemnumber}); |
1781 |
is( $status, 'Waiting', 'Now the hold is waiting'); |
1777 |
}; |
1782 |
}; |
1778 |
|
1783 |
|
1779 |
sub set_userenv { |
1784 |
sub set_userenv { |
1780 |
- |
|
|