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 |
- |
|
|