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

(-)a/C4/Circulation.pm (+1 lines)
Lines 2324-2329 sub _FixOverduesOnReturn { Link Here
2324
2324
2325
        $accountline->accounttype('FFOR');
2325
        $accountline->accounttype('FFOR');
2326
        $accountline->amountoutstanding(0);
2326
        $accountline->amountoutstanding(0);
2327
        $accountline->date( dt_from_string() );
2327
2328
2328
        Koha::Account::Offset->new(
2329
        Koha::Account::Offset->new(
2329
            {
2330
            {
(-)a/t/db_dependent/Circulation.t (-2 / +3 lines)
Lines 2304-2310 subtest '_FixAccountForLostAndReturned' => sub { Link Here
2304
};
2304
};
2305
2305
2306
subtest '_FixOverduesOnReturn' => sub {
2306
subtest '_FixOverduesOnReturn' => sub {
2307
    plan tests => 10;
2307
    plan tests => 11;
2308
2308
2309
    my $biblio = $builder->build_sample_biblio({ author => 'Hall, Kylie' });
2309
    my $biblio = $builder->build_sample_biblio({ author => 'Hall, Kylie' });
2310
2310
Lines 2330-2335 subtest '_FixOverduesOnReturn' => sub { Link Here
2330
            amount => 99.00,
2330
            amount => 99.00,
2331
            amountoutstanding => 99.00,
2331
            amountoutstanding => 99.00,
2332
            lastincrement => 9.00,
2332
            lastincrement => 9.00,
2333
            date => '1981-06-10',
2333
        }
2334
        }
2334
    )->store();
2335
    )->store();
2335
2336
Lines 2358-2363 subtest '_FixOverduesOnReturn' => sub { Link Here
2358
    is( $accountline->accounttype, 'FFOR', 'Open fine ( account type FU ) has been set to fine forgiven ( account type FFOR )');
2359
    is( $accountline->accounttype, 'FFOR', 'Open fine ( account type FU ) has been set to fine forgiven ( account type FFOR )');
2359
    is( ref $offset, "Koha::Account::Offset", "Found matching offset for fine reduction via forgiveness" );
2360
    is( ref $offset, "Koha::Account::Offset", "Found matching offset for fine reduction via forgiveness" );
2360
    is( $offset->amount, '-99.000000', "Amount of offset is correct" );
2361
    is( $offset->amount, '-99.000000', "Amount of offset is correct" );
2362
    is( $accountline->date, output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }), 'Accountline date is updated correctly' );
2361
2363
2362
    ## Run again, with dropbox mode enabled
2364
    ## Run again, with dropbox mode enabled
2363
    $accountline->set(
2365
    $accountline->set(
2364
- 

Return to bug 22200