|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 113; |
20 |
use Test::More tests => 114; |
| 21 |
|
21 |
|
| 22 |
use DateTime; |
22 |
use DateTime; |
| 23 |
|
23 |
|
|
Lines 86-91
my $borrower = {
Link Here
|
| 86 |
branchcode => $library2->{branchcode} |
86 |
branchcode => $library2->{branchcode} |
| 87 |
}; |
87 |
}; |
| 88 |
|
88 |
|
|
|
89 |
t::lib::Mocks::mock_preference('AutoReturnCheckedOutItems', 0); |
| 90 |
|
| 89 |
# No userenv, PickupLibrary |
91 |
# No userenv, PickupLibrary |
| 90 |
t::lib::Mocks::mock_preference('IndependentBranches', '0'); |
92 |
t::lib::Mocks::mock_preference('IndependentBranches', '0'); |
| 91 |
t::lib::Mocks::mock_preference('CircControl', 'PickupLibrary'); |
93 |
t::lib::Mocks::mock_preference('CircControl', 'PickupLibrary'); |
|
Lines 1750-1755
subtest 'AddReturn + CumulativeRestrictionPeriods' => sub {
Link Here
|
| 1750 |
is( $debarments->[0]->{expiration}, $expected_expiration ); |
1752 |
is( $debarments->[0]->{expiration}, $expected_expiration ); |
| 1751 |
}; |
1753 |
}; |
| 1752 |
|
1754 |
|
|
|
1755 |
subtest 'CanBookBeIssued + AutoReturnCheckedOutItems' => sub { |
| 1756 |
plan tests => 2; |
| 1757 |
|
| 1758 |
my $library = $builder->build( { source => 'Branch' } ); |
| 1759 |
my $patron1 = $builder->build_object( |
| 1760 |
{ |
| 1761 |
class => 'Koha::Patrons', |
| 1762 |
value => { |
| 1763 |
branchcode => $library->{branchcode}, |
| 1764 |
firstname => "Happy", |
| 1765 |
surname => "Gilmore", |
| 1766 |
} |
| 1767 |
} |
| 1768 |
); |
| 1769 |
my $patron2 = $builder->build_object( |
| 1770 |
{ |
| 1771 |
class => 'Koha::Patrons', |
| 1772 |
value => { |
| 1773 |
branchcode => $library->{branchcode}, |
| 1774 |
firstname => "Billy", |
| 1775 |
surname => "Madison", |
| 1776 |
} |
| 1777 |
} |
| 1778 |
); |
| 1779 |
|
| 1780 |
C4::Context->_new_userenv('xxx'); |
| 1781 |
C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, 'Random Library', '', '', ''); |
| 1782 |
|
| 1783 |
my $biblioitem = $builder->build( { source => 'Biblioitem' } ); |
| 1784 |
my $biblionumber = $biblioitem->{biblionumber}; |
| 1785 |
my $item = $builder->build( |
| 1786 |
{ source => 'Item', |
| 1787 |
value => { |
| 1788 |
homebranch => $library->{branchcode}, |
| 1789 |
holdingbranch => $library->{branchcode}, |
| 1790 |
notforloan => 0, |
| 1791 |
itemlost => 0, |
| 1792 |
withdrawn => 0, |
| 1793 |
biblionumber => $biblionumber, |
| 1794 |
} |
| 1795 |
} |
| 1796 |
); |
| 1797 |
|
| 1798 |
my ( $error, $question, $alerts ); |
| 1799 |
my $issue = AddIssue( $patron1->unblessed, $item->{barcode} ); |
| 1800 |
|
| 1801 |
t::lib::Mocks::mock_preference('AutoReturnCheckedOutItems', 0); |
| 1802 |
( $error, $question, $alerts ) = CanBookBeIssued( $patron2, $item->{barcode} ); |
| 1803 |
is( $question->{ISSUED_TO_ANOTHER}, 1, 'ISSUED_TO_ANOTHER question flag should be set if AutoReturnCheckedOutItems is disabled and item is checked out to another' ); |
| 1804 |
|
| 1805 |
t::lib::Mocks::mock_preference('AutoReturnCheckedOutItems', 1); |
| 1806 |
( $error, $question, $alerts ) = CanBookBeIssued( $patron2, $item->{barcode} ); |
| 1807 |
is( $alerts->{RETURNED_FROM_ANOTHER}->{patron}->borrowernumber, $patron1->borrowernumber, 'RETURNED_FROM_ANOTHER alert flag should be set if AutoReturnCheckedOutItems is enabled and item is checked out to another' ); |
| 1808 |
|
| 1809 |
t::lib::Mocks::mock_preference('AutoReturnCheckedOutItems', 0); |
| 1810 |
}; |
| 1811 |
|
| 1812 |
|
| 1753 |
subtest 'AddReturn | is_overdue' => sub { |
1813 |
subtest 'AddReturn | is_overdue' => sub { |
| 1754 |
plan tests => 5; |
1814 |
plan tests => 5; |
| 1755 |
|
1815 |
|
| 1756 |
- |
|
|