|
Lines 23-35
use C4::Branch;
Link Here
|
| 23 |
use C4::Items; |
23 |
use C4::Items; |
| 24 |
use C4::Members; |
24 |
use C4::Members; |
| 25 |
use C4::Reserves; |
25 |
use C4::Reserves; |
| 26 |
use C4::Overdues qw(UpdateFine); |
26 |
use C4::Overdues qw(UpdateFine CalcFine); |
| 27 |
use Koha::DateUtils; |
27 |
use Koha::DateUtils; |
| 28 |
use Koha::Database; |
28 |
use Koha::Database; |
| 29 |
|
29 |
|
| 30 |
use t::lib::TestBuilder; |
30 |
use t::lib::TestBuilder; |
| 31 |
|
31 |
|
| 32 |
use Test::More tests => 82; |
32 |
use Test::More tests => 83; |
| 33 |
|
33 |
|
| 34 |
BEGIN { |
34 |
BEGIN { |
| 35 |
use_ok('C4::Circulation'); |
35 |
use_ok('C4::Circulation'); |
|
Lines 441-449
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
| 441 |
my $datedue6 = AddIssue( $renewing_borrower, $barcode6); |
441 |
my $datedue6 = AddIssue( $renewing_borrower, $barcode6); |
| 442 |
is (defined $datedue6, 1, "Item 2 checked out, due date: $datedue6"); |
442 |
is (defined $datedue6, 1, "Item 2 checked out, due date: $datedue6"); |
| 443 |
|
443 |
|
| 444 |
my $passeddatedue1 = AddIssue($renewing_borrower, $barcode7, DateTime->from_epoch(epoch => 1)); |
444 |
my $now = dt_from_string(); |
| 445 |
is (defined $passeddatedue1, 1, "Item with passed date due checked out, due date: $passeddatedue1"); |
445 |
my $five_weeks = DateTime::Duration->new(weeks => 5); |
|
|
446 |
my $five_weeks_ago = $now - $five_weeks; |
| 447 |
|
| 448 |
my $passeddatedue1 = AddIssue($renewing_borrower, $barcode7, $five_weeks_ago); |
| 449 |
is (defined $passeddatedue1, 1, "Item with passed date due checked out, due date: " . $passeddatedue1->date_due); |
| 446 |
|
450 |
|
|
|
451 |
my ( $fine ) = CalcFine( GetItem(undef, $barcode7), $renewing_borrower->{categorycode}, $branch, $five_weeks_ago, $now ); |
| 452 |
C4::Overdues::UpdateFine( $itemnumber7, $renewing_borrower->{borrowernumber}, $fine, 'FU', Koha::DateUtils::output_pref($five_weeks_ago) ); |
| 453 |
AddRenewal( $renewing_borrower->{borrowernumber}, $itemnumber7, $branch ); |
| 454 |
$fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } ); |
| 455 |
is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' ); |
| 456 |
$fine->delete(); |
| 447 |
|
457 |
|
| 448 |
C4::Context->set_preference('OverduesBlockRenewing','blockitem'); |
458 |
C4::Context->set_preference('OverduesBlockRenewing','blockitem'); |
| 449 |
( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber6); |
459 |
( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $itemnumber6); |
|
Lines 562-568
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
| 562 |
|
572 |
|
| 563 |
ok( $total_due == 15, 'Borrower only charged fine with both WhenLostForgiveFine and WhenLostChargeReplacementFee disabled' ); |
573 |
ok( $total_due == 15, 'Borrower only charged fine with both WhenLostForgiveFine and WhenLostChargeReplacementFee disabled' ); |
| 564 |
|
574 |
|
| 565 |
my $now = dt_from_string(); |
|
|
| 566 |
my $future = dt_from_string(); |
575 |
my $future = dt_from_string(); |
| 567 |
$future->add( days => 7 ); |
576 |
$future->add( days => 7 ); |
| 568 |
my $units = C4::Overdues::get_chargeable_units('days', $future, $now, $library2->{branchcode}); |
577 |
my $units = C4::Overdues::get_chargeable_units('days', $future, $now, $library2->{branchcode}); |
| 569 |
- |
|
|