View | Details | Raw Unified | Return to bug 17708
Collapse All | Expand All

(-)a/C4/Circulation.pm (-1 / +3 lines)
Lines 2908-2914 sub AddRenewal { Link Here
2908
        DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES' });
2908
        DelUniqueDebarment({ borrowernumber => $borrowernumber, type => 'OVERDUES' });
2909
    }
2909
    }
2910
2910
2911
    # Log the renewal
2911
    # Add the renewal to stats
2912
    UpdateStats(
2912
    UpdateStats(
2913
        {
2913
        {
2914
            branch => C4::Context->userenv ? C4::Context->userenv->{branch} : $branch,
2914
            branch => C4::Context->userenv ? C4::Context->userenv->{branch} : $branch,
Lines 2921-2926 sub AddRenewal { Link Here
2921
        }
2921
        }
2922
    );
2922
    );
2923
2923
2924
    #Log the renewal
2925
    logaction("CIRCULATION", "RENEW", $itemnumber, "");
2924
    return $datedue;
2926
    return $datedue;
2925
}
2927
}
2926
2928
(-)a/t/db_dependent/Circulation.t (-3 / +7 lines)
Lines 17-26 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 91;
20
use Test::More tests => 92;
21
21
22
BEGIN {
22
BEGIN {
23
    require_ok('C4::Circulation');
23
    use_ok('C4::Log')
24
}
24
}
25
25
26
use DateTime;
26
use DateTime;
Lines 473-479 C4::Context->dbh->do("DELETE FROM accountlines"); Link Here
473
            due            => Koha::DateUtils::output_pref($five_weeks_ago)
473
            due            => Koha::DateUtils::output_pref($five_weeks_ago)
474
        }
474
        }
475
    );
475
    );
476
    my $date = output_pref( { dt => dt_from_string(), datenonly => 1, dateformat => 'iso' } );
477
    my $old_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEW"]) } );
476
    AddRenewal( $renewing_borrower->{borrowernumber}, $itemnumber7, $branch );
478
    AddRenewal( $renewing_borrower->{borrowernumber}, $itemnumber7, $branch );
479
    my $new_log_size =  scalar(@{GetLogs( $date, $date, undef,["CIRCULATION"], ["RENEW"]) } );
480
    is ($new_log_size -1, $old_log_size, 'renew log successfuly added');
481
477
    $fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } );
482
    $fine = $schema->resultset('Accountline')->single( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $itemnumber7 } );
478
    is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' );
483
    is( $fine->accounttype, 'F', 'Fine on renewed item is closed out properly' );
479
    $fine->delete();
484
    $fine->delete();
480
- 

Return to bug 17708