From acd0f6f116d0411d6faebaff5b23efcf7298b3d9 Mon Sep 17 00:00:00 2001 From: Kyle M Hall 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 Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall --- 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