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

(-)a/C4/Accounts.pm (-2 / +1 lines)
Lines 71-77 sub chargelostitem { Link Here
71
    my $dbh = C4::Context->dbh();
71
    my $dbh = C4::Context->dbh();
72
    my ($borrowernumber, $itemnumber, $amount, $description) = @_;
72
    my ($borrowernumber, $itemnumber, $amount, $description) = @_;
73
    my $itype = Koha::ItemTypes->find({ itemtype => Koha::Items->find($itemnumber)->effective_itemtype() });
73
    my $itype = Koha::ItemTypes->find({ itemtype => Koha::Items->find($itemnumber)->effective_itemtype() });
74
    my $replacementprice = $amount;
74
    my $replacementprice = $amount // 0;
75
    my $defaultreplacecost = $itype->defaultreplacecost;
75
    my $defaultreplacecost = $itype->defaultreplacecost;
76
    my $processfee = $itype->processfee;
76
    my $processfee = $itype->processfee;
77
    my $usedefaultreplacementcost = C4::Context->preference("useDefaultReplacementCost");
77
    my $usedefaultreplacementcost = C4::Context->preference("useDefaultReplacementCost");
78
- 

Return to bug 29184