From 70868b5b9fda38c51b9ea56ac0181a53792d87c3 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

---
 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.30.2