Attachment #86913 for bug #22563

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

Lines 91-97 sub chargelostitem{ Link Here

(-)a/C4/Accounts.pm (-1 / +1 lines)
91	my $existing_charges = $account->lines->search(	91	my $existing_charges = $account->lines->search(
92	{	92	{
93	itemnumber => $itemnumber,	93	itemnumber => $itemnumber,
94	accounttype => 'L',	94	accounttype => 'LOST',
95	}	95	}
96	)->count();	96	)->count();
97		97

Lines 2380-2386 sub _FixAccountForLostAndReturned { Link Here

(-)a/C4/Circulation.pm (-1 / +1 lines)
2380	my $accountlines = Koha::Account::Lines->search(	2380	my $accountlines = Koha::Account::Lines->search(
2381	{	2381	{
2382	itemnumber => $itemnumber,	2382	itemnumber => $itemnumber,
2383	accounttype => { -in => [ 'L', 'W' ] },	2383	accounttype => { -in => [ 'LOST', 'W' ] },
2384	},	2384	},
2385	{	2385	{
2386	order_by => { -desc => [ 'date', 'accountlines_id' ] }	2386	order_by => { -desc => [ 'date', 'accountlines_id' ] }

Lines 106-112 sub pay { Link Here

(-)a/Koha/Account.pm (-2 / +2 lines)
106	$fine->amountoutstanding($new_amountoutstanding)->store();	106	$fine->amountoutstanding($new_amountoutstanding)->store();
107	$balance_remaining = $balance_remaining - $amount_to_pay;	107	$balance_remaining = $balance_remaining - $amount_to_pay;
108		108
109	if ( $fine->itemnumber && $fine->accounttype && ( $fine->accounttype eq 'L' ) )	109	if ( $fine->itemnumber && $fine->accounttype && ( $fine->accounttype eq 'LOST' ) )
110	{	110	{
111	C4::Circulation::ReturnLostItem( $self->{patron_id}, $fine->itemnumber );	111	C4::Circulation::ReturnLostItem( $self->{patron_id}, $fine->itemnumber );
112	}	112	}
Lines 697-703 our $account_type_credit = { Link Here
697	our $account_type_debit = {	697	our $account_type_debit = {
698	'account' => 'A',	698	'account' => 'A',
699	'overdue' => 'OVERDUE',	699	'overdue' => 'OVERDUE',
700	'lost_item' => 'L',	700	'lost_item' => 'LOST',
701	'new_card' => 'N',	701	'new_card' => 'N',
702	'sundry' => 'M',	702	'sundry' => 'M',
703	'processing' => 'PF',	703	'processing' => 'PF',

Lines 8-14 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/accounts.inc (-1 / +1 lines)
8	[%- CASE 'OVERDUE' -%]<span>Fine[%- PROCESS account_status_description account=account -%]</span>	8	[%- CASE 'OVERDUE' -%]<span>Fine[%- PROCESS account_status_description account=account -%]</span>
9	[%- CASE 'A' -%]<span>Account management fee</span>	9	[%- CASE 'A' -%]<span>Account management fee</span>
10	[%- CASE 'M' -%]<span>Sundry</span>	10	[%- CASE 'M' -%]<span>Sundry</span>
11	[%- CASE 'L' -%]<span>Lost item</span>	11	[%- CASE 'LOST' -%]<span>Lost item</span>
12	[%- CASE 'W' -%]<span>Writeoff[%- PROCESS account_status_description account=account -%]</span>	12	[%- CASE 'W' -%]<span>Writeoff[%- PROCESS account_status_description account=account -%]</span>
13	[%- CASE 'HE' -%]<span>Hold waiting too long</span>	13	[%- CASE 'HE' -%]<span>Hold waiting too long</span>
14	[%- CASE 'Rent' -%]<span>Rental fee</span>	14	[%- CASE 'Rent' -%]<span>Rental fee</span>

Lines 79-85 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/maninvoice.tt (-1 / +1 lines)
79	[% INCLUDE 'str/members-menu.inc' %]	79	[% INCLUDE 'str/members-menu.inc' %]
80	[% Asset.js("js/members-menu.js") \| $raw %]	80	[% Asset.js("js/members-menu.js") \| $raw %]
81	<script>	81	<script>
82	var type_fees = {'L':'','OVERDUE':'','A':'','N':'','M':''};	82	var type_fees = {'LOST':'','OVERDUE':'','A':'','N':'','M':''};
83	[% FOREACH invoice_types_loo IN invoice_types_loop %]	83	[% FOREACH invoice_types_loo IN invoice_types_loop %]
84	type_fees['[% invoice_types_loo.authorised_value \| html %]'] = "[% invoice_types_loo.lib \| html %]";	84	type_fees['[% invoice_types_loo.authorised_value \| html %]'] = "[% invoice_types_loo.lib \| html %]";
85	[% END %]	85	[% END %]

Lines 116-122 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-account.tt (-1 / +1 lines)
116	[%- CASE 'OVERDUE' -%]Fine[%- PROCESS account_status_description account=account -%]	116	[%- CASE 'OVERDUE' -%]Fine[%- PROCESS account_status_description account=account -%]
117	[%- CASE 'A' -%]Account management fee	117	[%- CASE 'A' -%]Account management fee
118	[%- CASE 'M' -%]Sundry	118	[%- CASE 'M' -%]Sundry
119	[%- CASE 'L' -%]Lost item	119	[%- CASE 'LOST' -%]Lost item
120	[%- CASE 'W' -%]Writeoff[%- PROCESS account_status_description account=account -%]	120	[%- CASE 'W' -%]Writeoff[%- PROCESS account_status_description account=account -%]
121	[%- CASE 'HE' -%]Hold waiting too long	121	[%- CASE 'HE' -%]Hold waiting too long
122	[%- CASE 'Rent' -%]Rental fee	122	[%- CASE 'Rent' -%]Rental fee

Lines 196-202 if ( $pending_checkouts->count ) { # Useless test Link Here

(-)a/opac/opac-user.pl (-1 / +1 lines)
196	{	196	{
197	borrowernumber => $patron->borrowernumber,	197	borrowernumber => $patron->borrowernumber,
198	amountoutstanding => { '>' => 0 },	198	amountoutstanding => { '>' => 0 },
199	accounttype => [ 'OVERDUE', 'L' ],	199	accounttype => [ 'OVERDUE', 'LOST' ],
200	itemnumber => $issue->{itemnumber}	200	itemnumber => $issue->{itemnumber}
201	},	201	},
202	);	202	);




my $patron = $builder->build( { source => 'Borrower' } );
my $amount = '5.000000';
my $description = "Test fee!";
my $type = 'LOST';
my $note = 'Test note!';
warning_like {
    C4::Accounts::manualinvoice( $patron->{borrowernumber},

        t::lib::Mocks::mock_preference('useDefaultReplacementCost', '0');

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
        ok( !$lostfine, "No lost fine if no replacementcost or default when pref off");
        ok( !$procfee,  "No processing fee if no processing fee");
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 6.12, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
        ok( $lostfine->amount == 6.12, "Lost fine equals replacementcost when pref off and no default set");
        ok( !$procfee,  "No processing fee if no processing fee");
        $lostfine->delete();

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
        ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off");
        ok( !$procfee,  "No processing fee if no processing fee");
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 6.12, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
        ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set");
        ok( !$procfee,  "No processing fee if no processing fee");
        $lostfine->delete();

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
        ok( !$lostfine, "No lost fine if no replacementcost and no default set when pref off");
        ok( $procfee->amount == 8.16,  "Processing fee if processing fee");
        is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );
        $procfee->delete();
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 6.12, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
        ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and no default set");
        ok( $procfee->amount == 8.16,  "Processing fee if processing fee");

        $procfee->delete();

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
        ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off");
        ok( $procfee->amount == 2.04,  "Processing fee if processing fee");
        is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" );
        $procfee->delete();
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 6.12, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
        ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set");
        ok( $procfee->amount == 2.04,  "Processing fee if processing fee");

        t::lib::Mocks::mock_preference('useDefaultReplacementCost', '1');

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
        ok( !$lostfine, "No lost fine if no replacementcost or default when pref on");
        ok( !$procfee,  "No processing fee if no processing fee");
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 6.12, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
        is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set");
        ok( !$procfee,  "No processing fee if no processing fee");

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
        is( $lostfine->amount(), "16.320000", "Lost fine is default if no replacementcost but default set when pref on");
        ok( !$procfee,  "No processing fee if no processing fee");
        $lostfine->delete();
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 6.12, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
        is( $lostfine->amount, "6.120000" , "Lost fine equals replacementcost when pref on and default set");
        ok( !$procfee,  "No processing fee if no processing fee");

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
        ok( !$lostfine, "No lost fine if no replacementcost and default not set when pref on");
        is( $procfee->amount, "8.160000",  "Processing fee if processing fee");
        is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );
        $procfee->delete();
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 6.12, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
        is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set");
        is( $procfee->amount, "8.160000",  "Processing fee if processing fee");
        is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
        is( $lostfine->amount, "4.080000", "Lost fine is default if no replacementcost but default set when pref on");
        is( $procfee->amount, "2.040000",  "Processing fee if processing fee");

        $lostfine->delete();
        $procfee->delete();
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 6.12, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
        is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and default set");
        is( $procfee->amount, "2.040000",  "Processing fee if processing fee");

        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, '1.99', "Perdedor");

        # Lost Item Fee
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'LOST' });
        ok($lostfine, "Lost fine created");
        is($lostfine->manager_id, $staff_id, "Lost fine manager_id set correctly");
        is($lostfine->issue_id, $cli_issue_id_4, "Lost fine issue_id set correctly");


        t::lib::Mocks::mock_preference( 'FinesLog', 0 );
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
        is( $schema->resultset('ActionLog')->count(), $action_logs + 0, 'No logs were added' );
        $lostfine->delete();


        t::lib::Mocks::mock_preference( 'FinesLog', 1 );
        C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor");
        $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'LOST' });
        $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
        is( $schema->resultset('ActionLog')->count(), $action_logs + 2, 'Logs were added' );
        $lostfine->delete();




            $processfee_amount, 'The right PF amountoutstanding is generated' );

        my $lost_fee_lines = Koha::Account::Lines->search(
            { borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'LOST' } );
        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
        my $lost_fee_line = $lost_fee_lines->next;
        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

            $processfee_amount, 'The right PF amountoutstanding is generated' );

        my $lost_fee_lines = Koha::Account::Lines->search(
            { borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'LOST' } );
        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
        my $lost_fee_line = $lost_fee_lines->next;
        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

            $processfee_amount, 'The right PF amountoutstanding is generated' );

        my $lost_fee_lines = Koha::Account::Lines->search(
            { borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'LOST' } );
        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
        my $lost_fee_line = $lost_fee_lines->next;
        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

            $processfee_amount, 'The right PF amountoutstanding is generated' );

        my $lost_fee_lines = Koha::Account::Lines->search(
            { borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'LOST' } );
        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
        my $lost_fee_line = $lost_fee_lines->next;
        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );

        LostItem( $item_id, 1 );

        my $lost_fee_lines = Koha::Account::Lines->search(
            { borrowernumber => $patron->id, itemnumber => $item_id, accounttype => 'LOST' } );
        is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
        my $lost_fee_line = $lost_fee_lines->next;
        is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );
- 

Return to bug 22563

Lines 2032-2038 subtest '_FixAccountForLostAndReturned' => sub { Link Here

(-)a/t/db_dependent/Circulation.t (-6 / +5 lines)
2032	$processfee_amount, 'The right PF amountoutstanding is generated' );	2032	$processfee_amount, 'The right PF amountoutstanding is generated' );
2033		2033
2034	my $lost_fee_lines = Koha::Account::Lines->search(	2034	my $lost_fee_lines = Koha::Account::Lines->search(
2035	{ borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'L' } );	2035	{ borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'LOST' } );
2036	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );	2036	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
2037	my $lost_fee_line = $lost_fee_lines->next;	2037	my $lost_fee_line = $lost_fee_lines->next;
2038	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );	2038	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );
Lines 2092-2098 subtest '_FixAccountForLostAndReturned' => sub { Link Here
2092	$processfee_amount, 'The right PF amountoutstanding is generated' );	2092	$processfee_amount, 'The right PF amountoutstanding is generated' );
2093		2093
2094	my $lost_fee_lines = Koha::Account::Lines->search(	2094	my $lost_fee_lines = Koha::Account::Lines->search(
2095	{ borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'L' } );	2095	{ borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'LOST' } );
2096	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );	2096	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
2097	my $lost_fee_line = $lost_fee_lines->next;	2097	my $lost_fee_line = $lost_fee_lines->next;
2098	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );	2098	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );
Lines 2160-2166 subtest '_FixAccountForLostAndReturned' => sub { Link Here
2160	$processfee_amount, 'The right PF amountoutstanding is generated' );	2160	$processfee_amount, 'The right PF amountoutstanding is generated' );
2161		2161
2162	my $lost_fee_lines = Koha::Account::Lines->search(	2162	my $lost_fee_lines = Koha::Account::Lines->search(
2163	{ borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'L' } );	2163	{ borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'LOST' } );
2164	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );	2164	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
2165	my $lost_fee_line = $lost_fee_lines->next;	2165	my $lost_fee_line = $lost_fee_lines->next;
2166	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );	2166	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );
Lines 2211-2217 subtest '_FixAccountForLostAndReturned' => sub { Link Here
2211	$processfee_amount, 'The right PF amountoutstanding is generated' );	2211	$processfee_amount, 'The right PF amountoutstanding is generated' );
2212		2212
2213	my $lost_fee_lines = Koha::Account::Lines->search(	2213	my $lost_fee_lines = Koha::Account::Lines->search(
2214	{ borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'L' } );	2214	{ borrowernumber => $patron->id, itemnumber => $item->itemnumber, accounttype => 'LOST' } );
2215	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );	2215	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
2216	my $lost_fee_line = $lost_fee_lines->next;	2216	my $lost_fee_line = $lost_fee_lines->next;
2217	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );	2217	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );
Lines 2312-2318 subtest '_FixAccountForLostAndReturned' => sub { Link Here
2312	LostItem( $item_id, 1 );	2312	LostItem( $item_id, 1 );
2313		2313
2314	my $lost_fee_lines = Koha::Account::Lines->search(	2314	my $lost_fee_lines = Koha::Account::Lines->search(
2315	{ borrowernumber => $patron->id, itemnumber => $item_id, accounttype => 'L' } );	2315	{ borrowernumber => $patron->id, itemnumber => $item_id, accounttype => 'LOST' } );
2316	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );	2316	is( $lost_fee_lines->count, 1, 'Only one lost item fee produced' );
2317	my $lost_fee_line = $lost_fee_lines->next;	2317	my $lost_fee_line = $lost_fee_lines->next;
2318	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );	2318	is( $lost_fee_line->amount + 0, $replacement_amount, 'The right L amount is generated' );
2319	-