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