|
Lines 14-19
use Data::Dumper;
Link Here
|
| 14 |
use C4::Calendar; |
14 |
use C4::Calendar; |
| 15 |
use C4::Context; |
15 |
use C4::Context; |
| 16 |
use C4::Members; |
16 |
use C4::Members; |
|
|
17 |
use C4::Circulation; |
| 17 |
use Koha::Database; |
18 |
use Koha::Database; |
| 18 |
use Koha::DateUtils; |
19 |
use Koha::DateUtils; |
| 19 |
use Koha::Items; |
20 |
use Koha::Items; |
|
Lines 1657-1659
sub dump_records {
Link Here
|
| 1657 |
my ($tablename) = @_; |
1658 |
my ($tablename) = @_; |
| 1658 |
return $dbh->selectall_arrayref("SELECT * from $tablename where borrowernumber = ?", { Slice => {} }, $borrowernumber); |
1659 |
return $dbh->selectall_arrayref("SELECT * from $tablename where borrowernumber = ?", { Slice => {} }, $borrowernumber); |
| 1659 |
} |
1660 |
} |
| 1660 |
- |
1661 |
|
|
|
1662 |
subtest 'Remove holds on check-in match' => sub { |
| 1663 |
plan tests => 2; |
| 1664 |
|
| 1665 |
$schema->storage->txn_begin; |
| 1666 |
|
| 1667 |
$dbh->do('DELETE FROM tmp_holdsqueue'); |
| 1668 |
$dbh->do('DELETE FROM hold_fill_targets'); |
| 1669 |
|
| 1670 |
my $lib = $builder->build_object( { class => 'Koha::Libraries' } ); |
| 1671 |
|
| 1672 |
my $patron1 = $builder->build_object( |
| 1673 |
{ |
| 1674 |
class => 'Koha::Patrons', |
| 1675 |
value => { branchcode => $lib->branchcode } |
| 1676 |
} |
| 1677 |
); |
| 1678 |
my $patron2 = $builder->build_object( |
| 1679 |
{ |
| 1680 |
class => 'Koha::Patrons', |
| 1681 |
value => { branchcode => $lib->branchcode } |
| 1682 |
} |
| 1683 |
); |
| 1684 |
|
| 1685 |
my $item = $builder->build_sample_item( |
| 1686 |
{ homebranch => $lib->branchcode, holdingbranch => $lib->branchcode } ); |
| 1687 |
|
| 1688 |
t::lib::Mocks::mock_userenv( { branchcode => $lib->branchcode } ); |
| 1689 |
|
| 1690 |
AddIssue( $patron1->unblessed, $item->barcode, dt_from_string ); |
| 1691 |
|
| 1692 |
my $hold_id = AddReserve( |
| 1693 |
{ |
| 1694 |
branchcode => $item->homebranch, |
| 1695 |
borrowernumber => $patron2->borrowernumber, |
| 1696 |
biblionumber => $item->biblionumber, |
| 1697 |
itemnumber => undef, |
| 1698 |
priority => 1 |
| 1699 |
} |
| 1700 |
); |
| 1701 |
|
| 1702 |
my $hold = Koha::Holds->find($hold_id); |
| 1703 |
|
| 1704 |
AddReturn( $item->barcode, $item->homebranch ); |
| 1705 |
|
| 1706 |
C4::HoldsQueue::CreateQueue(); |
| 1707 |
|
| 1708 |
my $sth = $dbh->prepare("SELECT count(*) FROM tmp_holdsqueue"); |
| 1709 |
$sth->execute(); |
| 1710 |
my ($count_1) = $sth->fetchrow_array; |
| 1711 |
|
| 1712 |
is( $count_1, 1, "Holds queue has one element" ); |
| 1713 |
|
| 1714 |
AddReturn( $item->barcode, $item->homebranch, undef, dt_from_string ); |
| 1715 |
|
| 1716 |
ModReserveAffect( $item->itemnumber, $hold->borrowernumber, 0, |
| 1717 |
$hold->reserve_id ); |
| 1718 |
|
| 1719 |
$sth->execute(); |
| 1720 |
my ($count_2) = $sth->fetchrow_array; |
| 1721 |
|
| 1722 |
is( $count_2, 0, |
| 1723 |
"Holds queue has no elements, even when queue was not rebuilt" ); |
| 1724 |
|
| 1725 |
$schema->storage->txn_rollback; |
| 1726 |
}; |