Lines 487-495
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
487 |
|
487 |
|
488 |
# Bug 14395 |
488 |
# Bug 14395 |
489 |
# Test 'exact time' setting for syspref NoRenewalBeforePrecision |
489 |
# Test 'exact time' setting for syspref NoRenewalBeforePrecision |
|
|
490 |
my $item = C4::Items::GetItem( $itemnumber ); |
491 |
my $itemissue = C4::Circulation::GetItemIssue($itemnumber); |
490 |
t::lib::Mocks::mock_preference( 'NoRenewalBeforePrecision', 'exact_time' ); |
492 |
t::lib::Mocks::mock_preference( 'NoRenewalBeforePrecision', 'exact_time' ); |
491 |
is( |
493 |
is( |
492 |
GetSoonestRenewDate( $renewing_borrowernumber, $itemnumber ), |
494 |
GetSoonestRenewDate( { patron => $renewing_borrower, item => $item, issue => $itemissue, } ), |
493 |
$datedue->clone->add( days => -7 ), |
495 |
$datedue->clone->add( days => -7 ), |
494 |
'Bug 14395: Renewals permitted 7 days before due date, as expected' |
496 |
'Bug 14395: Renewals permitted 7 days before due date, as expected' |
495 |
); |
497 |
); |
Lines 498-504
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
498 |
# Test 'date' setting for syspref NoRenewalBeforePrecision |
500 |
# Test 'date' setting for syspref NoRenewalBeforePrecision |
499 |
t::lib::Mocks::mock_preference( 'NoRenewalBeforePrecision', 'date' ); |
501 |
t::lib::Mocks::mock_preference( 'NoRenewalBeforePrecision', 'date' ); |
500 |
is( |
502 |
is( |
501 |
GetSoonestRenewDate( $renewing_borrowernumber, $itemnumber ), |
503 |
GetSoonestRenewDate( { patron => $renewing_borrower, item => $item, issue => $itemissue, } ), |
502 |
$datedue->clone->add( days => -7 )->truncate( to => 'day' ), |
504 |
$datedue->clone->add( days => -7 )->truncate( to => 'day' ), |
503 |
'Bug 14395: Renewals permitted 7 days before due date, as expected' |
505 |
'Bug 14395: Renewals permitted 7 days before due date, as expected' |
504 |
); |
506 |
); |
Lines 666-672
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
666 |
|
668 |
|
667 |
LostItem( $itemnumber, 1 ); |
669 |
LostItem( $itemnumber, 1 ); |
668 |
|
670 |
|
669 |
my $item = Koha::Database->new()->schema()->resultset('Item')->find($itemnumber); |
671 |
$item = Koha::Database->new()->schema()->resultset('Item')->find($itemnumber); |
670 |
ok( !$item->onloan(), "Lost item marked as returned has false onloan value" ); |
672 |
ok( !$item->onloan(), "Lost item marked as returned has false onloan value" ); |
671 |
|
673 |
|
672 |
my $total_due = $dbh->selectrow_array( |
674 |
my $total_due = $dbh->selectrow_array( |
673 |
- |
|
|