Attachment #85219 for bug #22200

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

Lines 2324-2329 sub _FixOverduesOnReturn { Link Here

(-)a/C4/Circulation.pm (+1 lines)
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	{




};

subtest '_FixOverduesOnReturn' => sub {
    plan tests => 11;

    my $biblio = $builder->build_sample_biblio({ author => 'Hall, Kylie' });


            amount => 99.00,
            amountoutstanding => 99.00,
            lastincrement => 9.00,
            date => '1981-06-10',
        }
    )->store();


    is( $accountline->accounttype, 'FFOR', 'Open fine ( account type FU ) has been set to fine forgiven ( account type FFOR )');
    is( ref $offset, "Koha::Account::Offset", "Found matching offset for fine reduction via forgiveness" );
    is( $offset->amount, '-99.000000', "Amount of offset is correct" );
    is( $accountline->date, output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }), 'Accountline date is updated correctly' );

    ## Run again, with dropbox mode enabled
    $accountline->set(
- 

Return to bug 22200

Lines 2304-2310 subtest '_FixAccountForLostAndReturned' => sub { Link Here

(-)a/t/db_dependent/Circulation.t (-2 / +3 lines)
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	-