View | Details | Raw Unified | Return to bug 36506
Collapse All | Expand All

(-)a/C4/Accounts.pm (-5 / +26 lines)
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
- 

Return to bug 36506