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

(-)a/C4/Accounts.pm (-1 / +3 lines)
Lines 97-103 FIXME : if no replacement price, borrower just doesn't get charged? Link Here
97
97
98
sub chargelostitem{
98
sub chargelostitem{
99
    my $dbh = C4::Context->dbh();
99
    my $dbh = C4::Context->dbh();
100
    my ($borrowernumber, $itemnumber, $issue_id, $amount, $description) = @_;
100
    my ($borrowernumber, $itemnumber, $amount, $description) = @_;
101
    my $itype = Koha::ItemTypes->find({ itemtype => Koha::Items->find($itemnumber)->effective_itemtype() });
101
    my $itype = Koha::ItemTypes->find({ itemtype => Koha::Items->find($itemnumber)->effective_itemtype() });
102
    my $replacementprice = $amount;
102
    my $replacementprice = $amount;
103
    my $defaultreplacecost = $itype->defaultreplacecost;
103
    my $defaultreplacecost = $itype->defaultreplacecost;
Lines 120-125 sub chargelostitem{ Link Here
120
120
121
    # OK, they haven't
121
    # OK, they haven't
122
    unless ($existing_charges) {
122
    unless ($existing_charges) {
123
        my $checkout = Koha::Checkouts->find({ itemnumber => $itemnumber });
124
        my $issue_id = $checkout ? $checkout->issue_id : undef;
123
        #add processing fee
125
        #add processing fee
124
        if ($processfee && $processfee > 0){
126
        if ($processfee && $processfee > 0){
125
            my $accountline = Koha::Account::Line->new(
127
            my $accountline = Koha::Account::Line->new(
(-)a/C4/Circulation.pm (-3 / +1 lines)
Lines 3697-3705 sub LostItem{ Link Here
3697
            defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!";  # zero is OK, check defined
3697
            defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!";  # zero is OK, check defined
3698
        }
3698
        }
3699
        if (C4::Context->preference('WhenLostChargeReplacementFee')){
3699
        if (C4::Context->preference('WhenLostChargeReplacementFee')){
3700
            my $checkout = Koha::Checkouts->find({ itemnumber => $itemnumber });
3700
            C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}");
3701
            my $checkout_id = $checkout ? $checkout->id : undef;
3702
            C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $checkout_id, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}");
3703
            #FIXME : Should probably have a way to distinguish this from an item that really was returned.
3701
            #FIXME : Should probably have a way to distinguish this from an item that really was returned.
3704
            #warn " $issues->{'borrowernumber'}  /  $itemnumber ";
3702
            #warn " $issues->{'borrowernumber'}  /  $itemnumber ";
3705
        }
3703
        }
(-)a/t/db_dependent/Accounts.t (-17 / +16 lines)
Lines 530-567 subtest "Koha::Account::chargelostitem tests" => sub { Link Here
530
    t::lib::Mocks::mock_preference('item-level_itypes', '1');
530
    t::lib::Mocks::mock_preference('item-level_itypes', '1');
531
    t::lib::Mocks::mock_preference('useDefaultReplacementCost', '0');
531
    t::lib::Mocks::mock_preference('useDefaultReplacementCost', '0');
532
532
533
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, $cli_issue_id_1, 0, "Perdedor");
533
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 0, "Perdedor");
534
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' });
534
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' });
535
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
535
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
536
    ok( !$lostfine, "No lost fine if no replacementcost or default when pref off");
536
    ok( !$lostfine, "No lost fine if no replacementcost or default when pref off");
537
    ok( !$procfee,  "No processing fee if no processing fee");
537
    ok( !$procfee,  "No processing fee if no processing fee");
538
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, $cli_issue_id_1, 6.12, "Perdedor");
538
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 6.12, "Perdedor");
539
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' });
539
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' });
540
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
540
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
541
    ok( $lostfine->amount == 6.12, "Lost fine equals replacementcost when pref off and no default set");
541
    ok( $lostfine->amount == 6.12, "Lost fine equals replacementcost when pref off and no default set");
542
    ok( !$procfee,  "No processing fee if no processing fee");
542
    ok( !$procfee,  "No processing fee if no processing fee");
543
    $lostfine->delete();
543
    $lostfine->delete();
544
544
545
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, $cli_issue_id_2, 0, "Perdedor");
545
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 0, "Perdedor");
546
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' });
546
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' });
547
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
547
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
548
    ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off");
548
    ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off");
549
    ok( !$procfee,  "No processing fee if no processing fee");
549
    ok( !$procfee,  "No processing fee if no processing fee");
550
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, $cli_issue_id_2, 6.12, "Perdedor");
550
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 6.12, "Perdedor");
551
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' });
551
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' });
552
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
552
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
553
    ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set");
553
    ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set");
554
    ok( !$procfee,  "No processing fee if no processing fee");
554
    ok( !$procfee,  "No processing fee if no processing fee");
555
    $lostfine->delete();
555
    $lostfine->delete();
556
556
557
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, $cli_issue_id_3, 0, "Perdedor");
557
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 0, "Perdedor");
558
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' });
558
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' });
559
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
559
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
560
    ok( !$lostfine, "No lost fine if no replacementcost and no default set when pref off");
560
    ok( !$lostfine, "No lost fine if no replacementcost and no default set when pref off");
561
    ok( $procfee->amount == 8.16,  "Processing fee if processing fee");
561
    ok( $procfee->amount == 8.16,  "Processing fee if processing fee");
562
    is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );
562
    is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );
563
    $procfee->delete();
563
    $procfee->delete();
564
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, $cli_issue_id_3, 6.12, "Perdedor");
564
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 6.12, "Perdedor");
565
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' });
565
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' });
566
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
566
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
567
    ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and no default set");
567
    ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and no default set");
Lines 570-583 subtest "Koha::Account::chargelostitem tests" => sub { Link Here
570
    $lostfine->delete();
570
    $lostfine->delete();
571
    $procfee->delete();
571
    $procfee->delete();
572
572
573
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, $cli_issue_id_4, 0, "Perdedor");
573
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor");
574
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' });
574
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' });
575
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
575
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
576
    ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off");
576
    ok( !$lostfine, "No lost fine if no replacementcost but default set when pref off");
577
    ok( $procfee->amount == 2.04,  "Processing fee if processing fee");
577
    ok( $procfee->amount == 2.04,  "Processing fee if processing fee");
578
    is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" );
578
    is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" );
579
    $procfee->delete();
579
    $procfee->delete();
580
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, $cli_issue_id_4, 6.12, "Perdedor");
580
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 6.12, "Perdedor");
581
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' });
581
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' });
582
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
582
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
583
    ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set");
583
    ok( $lostfine->amount == 6.12 , "Lost fine equals replacementcost when pref off and default set");
Lines 588-631 subtest "Koha::Account::chargelostitem tests" => sub { Link Here
588
588
589
    t::lib::Mocks::mock_preference('useDefaultReplacementCost', '1');
589
    t::lib::Mocks::mock_preference('useDefaultReplacementCost', '1');
590
590
591
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, $cli_issue_id_1, 0, "Perdedor");
591
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 0, "Perdedor");
592
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' });
592
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' });
593
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
593
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
594
    ok( !$lostfine, "No lost fine if no replacementcost or default when pref on");
594
    ok( !$lostfine, "No lost fine if no replacementcost or default when pref on");
595
    ok( !$procfee,  "No processing fee if no processing fee");
595
    ok( !$procfee,  "No processing fee if no processing fee");
596
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, $cli_issue_id_1, 6.12, "Perdedor");
596
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber1, 6.12, "Perdedor");
597
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' });
597
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'L' });
598
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
598
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber1, accounttype => 'PF' });
599
    is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set");
599
    is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set");
600
    ok( !$procfee,  "No processing fee if no processing fee");
600
    ok( !$procfee,  "No processing fee if no processing fee");
601
601
602
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, $cli_issue_id_2, 0, "Perdedor");
602
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 0, "Perdedor");
603
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' });
603
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' });
604
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
604
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
605
    is( $lostfine->amount(), "16.320000", "Lost fine is default if no replacementcost but default set when pref on");
605
    is( $lostfine->amount(), "16.320000", "Lost fine is default if no replacementcost but default set when pref on");
606
    ok( !$procfee,  "No processing fee if no processing fee");
606
    ok( !$procfee,  "No processing fee if no processing fee");
607
    $lostfine->delete();
607
    $lostfine->delete();
608
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, $cli_issue_id_2, 6.12, "Perdedor");
608
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber2, 6.12, "Perdedor");
609
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' });
609
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'L' });
610
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
610
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber2, accounttype => 'PF' });
611
    is( $lostfine->amount, "6.120000" , "Lost fine equals replacementcost when pref on and default set");
611
    is( $lostfine->amount, "6.120000" , "Lost fine equals replacementcost when pref on and default set");
612
    ok( !$procfee,  "No processing fee if no processing fee");
612
    ok( !$procfee,  "No processing fee if no processing fee");
613
613
614
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, $cli_issue_id_3, 0, "Perdedor");
614
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 0, "Perdedor");
615
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' });
615
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' });
616
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
616
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
617
    ok( !$lostfine, "No lost fine if no replacementcost and default not set when pref on");
617
    ok( !$lostfine, "No lost fine if no replacementcost and default not set when pref on");
618
    is( $procfee->amount, "8.160000",  "Processing fee if processing fee");
618
    is( $procfee->amount, "8.160000",  "Processing fee if processing fee");
619
    is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );
619
    is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );
620
    $procfee->delete();
620
    $procfee->delete();
621
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, $cli_issue_id_3, 6.12, "Perdedor");
621
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber3, 6.12, "Perdedor");
622
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' });
622
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'L' });
623
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
623
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber3, accounttype => 'PF' });
624
    is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set");
624
    is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and no default set");
625
    is( $procfee->amount, "8.160000",  "Processing fee if processing fee");
625
    is( $procfee->amount, "8.160000",  "Processing fee if processing fee");
626
    is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );
626
    is( $procfee->issue_id, $cli_issue_id_3, "Processing fee issue id is correct" );
627
627
628
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, $cli_issue_id_4, 0, "Perdedor");
628
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 0, "Perdedor");
629
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' });
629
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' });
630
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
630
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
631
    is( $lostfine->amount, "4.080000", "Lost fine is default if no replacementcost but default set when pref on");
631
    is( $lostfine->amount, "4.080000", "Lost fine is default if no replacementcost but default set when pref on");
Lines 633-639 subtest "Koha::Account::chargelostitem tests" => sub { Link Here
633
    is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" );
633
    is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" );
634
    $lostfine->delete();
634
    $lostfine->delete();
635
    $procfee->delete();
635
    $procfee->delete();
636
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, $cli_issue_id_4, 6.12, "Perdedor");
636
    C4::Accounts::chargelostitem( $cli_borrowernumber, $cli_itemnumber4, 6.12, "Perdedor");
637
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' });
637
    $lostfine = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'L' });
638
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
638
    $procfee  = Koha::Account::Lines->find({ borrowernumber => $cli_borrowernumber, itemnumber => $cli_itemnumber4, accounttype => 'PF' });
639
    is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and default set");
639
    is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and default set");
640
- 

Return to bug 18677