|
Lines 68-78
FIXME : if no replacement price, borrower just doesn't get charged?
Link Here
|
| 68 |
sub chargelostitem { |
68 |
sub chargelostitem { |
| 69 |
my $dbh = C4::Context->dbh(); |
69 |
my $dbh = C4::Context->dbh(); |
| 70 |
my ( $borrowernumber, $itemnumber, $replacementprice, $description ) = @_; |
70 |
my ( $borrowernumber, $itemnumber, $replacementprice, $description ) = @_; |
| 71 |
my $item = Koha::Items->find($itemnumber); |
71 |
my $patron = Koha::Patrons->find($borrowernumber); |
| 72 |
my $itype = $item->itemtype; |
72 |
my $item = Koha::Items->find($itemnumber); |
|
|
73 |
my $itype = $item->itemtype; |
| 73 |
$replacementprice //= 0; |
74 |
$replacementprice //= 0; |
| 74 |
my $defaultreplacecost = $itype->defaultreplacecost; |
75 |
my $defaultreplacecost = $itype->defaultreplacecost; |
| 75 |
my $processfee = $itype->processfee; |
76 |
|
|
|
77 |
my $lost_control_pref = C4::Context->preference('LostChargesControl'); |
| 78 |
my $lost_control_branch; |
| 79 |
if ( $lost_control_pref eq 'PatronLibrary' ) { |
| 80 |
$lost_control_branch = $patron->branchcode; |
| 81 |
} elsif ( $lost_control_pref eq 'PickupLibrary' ) { |
| 82 |
$lost_control_branch = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef; |
| 83 |
} else { # $lost_control_pref eq 'ItemHomeLibrary' |
| 84 |
$lost_control_branch = |
| 85 |
( C4::Context->preference('HomeOrHoldingBranch') eq 'homebranch' ) |
| 86 |
? $item->homebranch |
| 87 |
: $item->holdingbranch; |
| 88 |
} |
| 89 |
|
| 90 |
my $processfee = Koha::CirculationRules->get_effective_rule_value( |
| 91 |
{ |
| 92 |
rule_name => "lost_item_processing_fee", |
| 93 |
categorycode => undef, |
| 94 |
itemtype => $itype->itemtype, |
| 95 |
branchcode => $lost_control_branch |
| 96 |
} |
| 97 |
) // 0; |
| 76 |
my $usedefaultreplacementcost = C4::Context->preference("useDefaultReplacementCost"); |
98 |
my $usedefaultreplacementcost = C4::Context->preference("useDefaultReplacementCost"); |
| 77 |
my $processingfeenote = C4::Context->preference("ProcessingFeeNote"); |
99 |
my $processingfeenote = C4::Context->preference("ProcessingFeeNote"); |
| 78 |
|
100 |
|
| 79 |
- |
|
|