|
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 |
- |
|
|