View | Details | Raw Unified | Return to bug 28854
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 $item  = Koha::Items->find($itemnumber);
73
    my $item  = Koha::Items->find($itemnumber);
74
    my $itype = Koha::ItemTypes->find({ itemtype => $item->effective_itemtype() });
74
    my $itype = $item->itemtype;
75
    my $replacementprice = $amount;
75
    my $replacementprice = $amount;
76
    my $defaultreplacecost = $itype->defaultreplacecost;
76
    my $defaultreplacecost = $itype->defaultreplacecost;
77
    my $processfee = $itype->processfee;
77
    my $processfee = $itype->processfee;
78
- 

Return to bug 28854