From f59c22b72baaee66b59390d2491b80115ebc2862 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 11 Jan 2017 14:57:36 +0000 Subject: [PATCH] Bug 15905 - Remove use of makepayment Test Plan: 1) Apply these patches 2) prove t/db_dependent/Accounts.t 3) 'git grep makepayment' should return no results Signed-off-by: Mark Tompsett 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 92df8947d0..f20ea2f290 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -35,7 +35,6 @@ BEGIN { require Exporter; @ISA = qw(Exporter); @EXPORT = qw( - &makepayment &manualinvoice &getnextacctno &getcharges @@ -65,33 +64,6 @@ patron. =head1 FUNCTIONS -=head2 makepayment - - &makepayment($accountlines_id, $borrowernumber, $acctnumber, $amount, $branchcode); - -Records the fact that a patron has paid off the entire amount he or -she owes. - -C<$borrowernumber> is the patron's borrower number. C<$acctnumber> is -the account that was credited. C<$amount> is the amount paid (this is -only used to record the payment. It is assumed to be equal to the -amount owed). C<$branchcode> is the code of the branch where payment -was made. - -=cut - -#' -# FIXME - I'm not at all sure about the above, because I don't -# understand what the acct* tables in the Koha database are for. -sub makepayment { - my ( $accountlines_id, $borrowernumber, $accountno, $amount, $user, $branch, $payment_note ) = @_; - - my $line = Koha::Account::Lines->find( $accountlines_id ); - - return Koha::Account->new( { patron_id => $borrowernumber } ) - ->pay( { lines => [ $line ], amount => $amount, library_id => $branch, note => $payment_note } ); -} - =head2 getnextacctno $nextacct = &getnextacctno($borrowernumber); -- 2.39.5