From 66bdfbc0a3597c4452f8adfd502a6fc6cfeb19c8 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Mon, 14 Oct 2019 18:19:18 +0100
Subject: [PATCH] Bug 23805: (follow-up) Lowercase credit type for UpdateStats

Signed-off-by: Kyle Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 Koha/Account.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Koha/Account.pm b/Koha/Account.pm
index 04bbd083e7..d04c703671 100644
--- a/Koha/Account.pm
+++ b/Koha/Account.pm
@@ -247,7 +247,7 @@ sub pay {
     UpdateStats(
         {
             branch         => $library_id,
-            type           => $type,
+            type           => lc($type),
             amount         => $amount,
             borrowernumber => $self->{patron_id},
         }
@@ -403,7 +403,7 @@ sub add_credit {
                 UpdateStats(
                     {
                         branch         => $library_id,
-                        type           => $credit_type,
+                        type           => lc($credit_type),
                         amount         => $amount,
                         borrowernumber => $self->{patron_id},
                     }
-- 
2.39.5