|
Lines 288-297
sub CalcFine {
Link Here
|
| 288 |
&& $amount > $issuing_rule->{overduefinescap}; |
288 |
&& $amount > $issuing_rule->{overduefinescap}; |
| 289 |
|
289 |
|
| 290 |
# This must be moved to Koha::Item (see also similar code in C4::Accounts::chargelostitem |
290 |
# This must be moved to Koha::Item (see also similar code in C4::Accounts::chargelostitem |
| 291 |
$item->{replacementprice} ||= $itemtype->defaultreplacecost |
291 |
if ( $itemtype |
| 292 |
if $itemtype |
292 |
&& ( !defined $item->{replacementprice} || $item->{replacementprice} + .0 == 0 ) |
| 293 |
&& ( ! defined $item->{replacementprice} || $item->{replacementprice} == 0 ) |
293 |
&& C4::Context->preference("useDefaultReplacementCost") ) |
| 294 |
&& C4::Context->preference("useDefaultReplacementCost"); |
294 |
{ |
|
|
295 |
$item->{replacementprice} = $itemtype->defaultreplacecost; |
| 296 |
} |
| 295 |
|
297 |
|
| 296 |
$amount = $item->{replacementprice} if ( $issuing_rule->{cap_fine_to_replacement_price} && $item->{replacementprice} && $amount > $item->{replacementprice} ); |
298 |
$amount = $item->{replacementprice} if ( $issuing_rule->{cap_fine_to_replacement_price} && $item->{replacementprice} && $amount > $item->{replacementprice} ); |
| 297 |
|
299 |
|
| 298 |
- |
|
|