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

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

Return to bug 36506