From acd0f6f116d0411d6faebaff5b23efcf7298b3d9 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 24 Feb 2016 15:25:04 +0000
Subject: [PATCH] Bug 15903 - Remove use of recordpayment in paycollect.pl

Test Plan:
1) Apply this patch
2) Pay a fine via the "Pay amount" button
3) Payment should succeed.

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 members/paycollect.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/members/paycollect.pl b/members/paycollect.pl
index db86b0accf..1cb6ad9a70 100755
--- a/members/paycollect.pl
+++ b/members/paycollect.pl
@@ -29,6 +29,7 @@ use C4::Members::Attributes qw(GetBorrowerAttributes);
 use C4::Accounts;
 use C4::Koha;
 use Koha::Patron::Images;
+use Koha::Account;
 
 use Koha::Patron::Categories;
 
@@ -129,11 +130,10 @@ if ( $total_paid and $total_paid ne '0.00' ) {
                 recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note );
             } else {
                 my $note = $input->param('selected_accts_notes');
-                recordpayment( $borrowernumber, $total_paid, '', $note );
+                Koha::Account->new( { patron_id => $borrowernumber } )
+                  ->pay( { amount => $total_paid, note => $note } );
             }
 
-# recordpayment does not return success or failure so lets redisplay the boraccount
-
             print $input->redirect(
 "/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber"
             );
-- 
2.39.5