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