@@ -, +, @@ --- C4/Circulation.pm | 9 ++++++--- C4/Reserves.pm | 12 +++++++++--- 2 files changed, 15 insertions(+), 6 deletions(-) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -2878,9 +2878,12 @@ sub AddRenewal { . $biblio->title . " $item->{'barcode'}"; - C4::Accounts::manualinvoice( - $borrowernumber, $itemnumber, $description, 'Rent', $charge - ); + $patron->account->add_debit({ + amount => $charge, + description => $description, + type => 'rent', + item_id => $itemnumber, + }); } # Send a renewal slip according to checkout alert preferencei --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -570,9 +570,15 @@ sub ChargeReserveFee { return if !$fee || $fee == 0; # the last test is needed to include 0.00 - C4::Accounts::manualinvoice( - $borrowernumber, undef, "Reserve Charge - $title", 'Res', $fee - ); + #FIXME - patron should be passed as param, not fetched agian + my $patron = Koha::Patrons->find( $borrowernumber ); + return unless $patron; + + $patron->account->add_debit({ + amount => $fee, + type => 'reserve', + description => $title, + }); } =head2 GetReserveFee --