|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 102; |
20 |
use Test::More tests => 103; |
| 21 |
|
21 |
|
| 22 |
use DateTime; |
22 |
use DateTime; |
| 23 |
|
23 |
|
|
Lines 1783-1788
subtest 'Set waiting flag' => sub {
Link Here
|
| 1783 |
|
1783 |
|
| 1784 |
my $biblio = $builder->build( { source => 'Biblio' } ); |
1784 |
my $biblio = $builder->build( { source => 'Biblio' } ); |
| 1785 |
my $biblioitem = $builder->build( { source => 'Biblioitem', value => { biblionumber => $biblio->{biblionumber} } } ); |
1785 |
my $biblioitem = $builder->build( { source => 'Biblioitem', value => { biblionumber => $biblio->{biblionumber} } } ); |
|
|
1786 |
|
| 1786 |
my $item = $builder->build( |
1787 |
my $item = $builder->build( |
| 1787 |
{ |
1788 |
{ |
| 1788 |
source => 'Item', |
1789 |
source => 'Item', |
|
Lines 1797-1804
subtest 'Set waiting flag' => sub {
Link Here
|
| 1797 |
} |
1798 |
} |
| 1798 |
); |
1799 |
); |
| 1799 |
|
1800 |
|
| 1800 |
|
|
|
| 1801 |
|
| 1802 |
set_userenv( $library_2 ); |
1801 |
set_userenv( $library_2 ); |
| 1803 |
my $reserve_id = AddReserve( |
1802 |
my $reserve_id = AddReserve( |
| 1804 |
$library_2->{branchcode}, $patron_2->{borrowernumber}, $biblioitem->{biblionumber}, |
1803 |
$library_2->{branchcode}, $patron_2->{borrowernumber}, $biblioitem->{biblionumber}, |
|
Lines 1825-1830
subtest 'Set waiting flag' => sub {
Link Here
|
| 1825 |
is( $status, 'Waiting', 'Now the hold is waiting'); |
1824 |
is( $status, 'Waiting', 'Now the hold is waiting'); |
| 1826 |
}; |
1825 |
}; |
| 1827 |
|
1826 |
|
|
|
1827 |
subtest 'AddReturn | is_overdue' => sub { |
| 1828 |
plan tests => 3; |
| 1829 |
|
| 1830 |
# Set a simple circ policy |
| 1831 |
$dbh->do('DELETE FROM issuingrules'); |
| 1832 |
$dbh->do( |
| 1833 |
q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed, |
| 1834 |
maxissueqty, issuelength, lengthunit, |
| 1835 |
renewalsallowed, renewalperiod, |
| 1836 |
norenewalbefore, auto_renew, |
| 1837 |
fine, chargeperiod) |
| 1838 |
VALUES (?, ?, ?, ?, |
| 1839 |
?, ?, ?, |
| 1840 |
?, ?, |
| 1841 |
?, ?, |
| 1842 |
?, ? |
| 1843 |
) |
| 1844 |
}, |
| 1845 |
{}, |
| 1846 |
'*', '*', '*', 25, |
| 1847 |
1, 14, 'days', |
| 1848 |
1, 7, |
| 1849 |
undef, 0, |
| 1850 |
.10, 1 |
| 1851 |
); |
| 1852 |
my $five_days_go = output_pref({ dt => dt_from_string->add( days => 5 ), dateonly => 1}); |
| 1853 |
my $ten_days_go = output_pref({ dt => dt_from_string->add( days => 10), dateonly => 1 }); |
| 1854 |
my $library = $builder->build( { source => 'Branch' } ); |
| 1855 |
my $patron = $builder->build( { source => 'Borrower' } ); |
| 1856 |
|
| 1857 |
my $biblioitem = $builder->build( { source => 'Biblioitem' } ); |
| 1858 |
my $item = $builder->build( |
| 1859 |
{ |
| 1860 |
source => 'Item', |
| 1861 |
value => { |
| 1862 |
homebranch => $library->{branchcode}, |
| 1863 |
holdingbranch => $library->{branchcode}, |
| 1864 |
notforloan => 0, |
| 1865 |
itemlost => 0, |
| 1866 |
withdrawn => 0, |
| 1867 |
biblionumber => $biblioitem->{biblionumber}, |
| 1868 |
} |
| 1869 |
} |
| 1870 |
); |
| 1871 |
|
| 1872 |
my $issue = AddIssue( $patron, $item->{barcode}, $five_days_go ); # date due was 10d ago |
| 1873 |
my $actualissue = Koha::Checkouts->find( { itemnumber => $item->{itemnumber} } ); |
| 1874 |
is( output_pref({ str => $actualissue->date_due, dateonly => 1}), $five_days_go, "First issue works"); |
| 1875 |
my ($issuingimpossible, $needsconfirmation) = CanBookBeIssued($patron,$item->{barcode},$ten_days_go, undef, undef, undef); |
| 1876 |
is( $needsconfirmation->{RENEW_ISSUE}, 1, "This is a renewal"); |
| 1877 |
is( $needsconfirmation->{TOO_MANY}, undef, "Not too many, is a renewal"); |
| 1878 |
|
| 1879 |
}; |
| 1880 |
|
| 1828 |
sub set_userenv { |
1881 |
sub set_userenv { |
| 1829 |
my ( $library ) = @_; |
1882 |
my ( $library ) = @_; |
| 1830 |
C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, $library->{branchname}, '', '', ''); |
1883 |
C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, $library->{branchname}, '', '', ''); |
| 1831 |
- |
|
|