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

(-)a/C4/Circulation.pm (-3 / +6 lines)
Lines 2878-2886 sub AddRenewal { Link Here
2878
            . $biblio->title
2878
            . $biblio->title
2879
            . " $item->{'barcode'}";
2879
            . " $item->{'barcode'}";
2880
2880
2881
        C4::Accounts::manualinvoice(
2881
        $patron->account->add_debit({
2882
            $borrowernumber, $itemnumber, $description, 'Rent', $charge
2882
            amount => $charge,
2883
        );
2883
            description => $description,
2884
            type => 'rent',
2885
            item_id => $itemnumber,
2886
        });
2884
    }
2887
    }
2885
2888
2886
    # Send a renewal slip according to checkout alert preferencei
2889
    # Send a renewal slip according to checkout alert preferencei
(-)a/C4/Reserves.pm (-4 / +9 lines)
Lines 570-578 sub ChargeReserveFee { Link Here
570
570
571
    return if !$fee || $fee == 0;    # the last test is needed to include 0.00
571
    return if !$fee || $fee == 0;    # the last test is needed to include 0.00
572
572
573
    C4::Accounts::manualinvoice(
573
    #FIXME - patron should be passed as param, not fetched agian
574
        $borrowernumber, undef, "Reserve Charge - $title", 'Res', $fee
574
    my $patron = Koha::Patrons->find( $borrowernumber );
575
    );
575
    return unless $patron;
576
577
    $patron->account->add_debit({
578
        amount => $fee,
579
        type => 'reserve',
580
        description => $title,
581
    });
576
}
582
}
577
583
578
=head2 GetReserveFee
584
=head2 GetReserveFee
579
- 

Return to bug 21678