From fe0fc226c524d6f63c8d64af7a0c8b2c5ac7198f Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 24 Feb 2016 15:05:01 +0000 Subject: [PATCH] Bug 15899 - Remove C4::Accounts::recordpayment Test Plan: 1) Apply this patch 2) prove t/db_dependent/Accounts.t 3) git grep recordpayment should show no calls to the recordpayment sub Signed-off-by: Josef Moravec Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall --- C4/Accounts.pm | 28 ---------------------------- 1 file changed, 28 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 21080dffc0..e49becb94c 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -35,7 +35,6 @@ BEGIN { require Exporter; @ISA = qw(Exporter); @EXPORT = qw( - &recordpayment &makepayment &manualinvoice &getnextacctno @@ -68,33 +67,6 @@ patron. =head1 FUNCTIONS -=head2 recordpayment - - &recordpayment($borrowernumber, $payment, $sip_paytype, $note); - -Record payment by a patron. C<$borrowernumber> is the patron's -borrower number. C<$payment> is a floating-point number, giving the -amount that was paid. C<$sip_paytype> is an optional flag to indicate this -payment was made over a SIP2 interface, rather than the staff client. The -value passed is the SIP2 payment type value (message 37, characters 21-22) - -Amounts owed are paid off oldest first. That is, if the patron has a -$1 fine from Feb. 1, another $1 fine from Mar. 1, and makes a payment -of $1.50, then the oldest fine will be paid off in full, and $0.50 -will be credited to the next one. - -=cut - -#' -sub recordpayment { - - #here we update the account lines - my ( $borrowernumber, $data, $sip_paytype, $payment_note ) = @_; - - return Koha::Account->new( { patron_id => $borrowernumber } ) - ->pay( { amount => $data, sip => $sip_paytype, note => $payment_note } ); -} - =head2 makepayment &makepayment($accountlines_id, $borrowernumber, $acctnumber, $amount, $branchcode); -- 2.39.5