From 7310866d36a761a93f672dcef44b82e8ae81344a Mon Sep 17 00:00:00 2001
From: Lucas Gass <lucas@bywatersolutions.com>
Date: Thu, 13 Apr 2023 17:52:58 +0000
Subject: [PATCH] Bug 33176: Enforce RequirePaymentType with API

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Sam Lau <samalau@gmail.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit df4285adb2f6669ad62b0e3b1eddb04f44761d16)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit 68c725afeec87d4cd6bddb78323c2d5c66969901)
Signed-off-by: Pedro Amorim <pedro.amorim@ptfs-europe.com>
---
 Koha/REST/V1/Patrons/Account.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Koha/REST/V1/Patrons/Account.pm b/Koha/REST/V1/Patrons/Account.pm
index cf9bc9a416..bb740724b0 100644
--- a/Koha/REST/V1/Patrons/Account.pm
+++ b/Koha/REST/V1/Patrons/Account.pm
@@ -109,6 +109,10 @@ sub add_credit {
         my $note         = $body->{note};
         my $library_id   = $body->{library_id};
 
+        if ( C4::Context->preference("RequirePaymentType") && !defined($payment_type) ) {
+            Koha::Exceptions::Account::PaymentTypeRequired->throw();
+        }
+
         my $credit = $account->add_credit(
             {   amount       => $amount,
                 type         => $credit_type,
-- 
2.39.5