From 3e373becd1febe7c1231263ded8f479d068c1b3c Mon Sep 17 00:00:00 2001
From: Sam Lau <samalau@gmail.com>
Date: Wed, 26 Jun 2024 19:06:48 +0000
Subject: [PATCH] Bug 23674: Add ability to add a note to issue refund

---
 Koha/Account/Line.pm                                      | 6 ++++--
 .../intranet-tmpl/prog/en/modules/members/boraccount.tt   | 5 ++++-
 members/boraccount.pl                                     | 8 ++++++--
 3 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/Koha/Account/Line.pm b/Koha/Account/Line.pm
index e35338512e..75e6733167 100644
--- a/Koha/Account/Line.pm
+++ b/Koha/Account/Line.pm
@@ -723,7 +723,8 @@ sub apply {
         register_id => $register_id,
         staff_id    => $staff_id,
         interface   => 'intranet',
-        amount      => $amount
+        amount      => $amount,
+        note        => $note
     }
   );
 
@@ -788,7 +789,8 @@ sub payout {
                     borrowernumber    => $self->borrowernumber,
                     interface         => $params->{interface},
                     branchcode        => $params->{branch},
-                    register_id       => $params->{cash_register}
+                    register_id       => $params->{cash_register},
+                    note              => $params->{note},
                 }
             )->store();
 
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt
index fb0e734418..de8767b4ac 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt
@@ -340,7 +340,10 @@
                                     </select>
                                 </li>
                                 [% END %]
-
+                                <li>
+                                    <label for="refund_note">Note: </label>
+                                    <input type="text" id="refund_note" name="refund_note">
+                                </li>
                             </ol>
                         </fieldset> <!-- /.rows -->
                     </div> <!-- /.modal-body -->
diff --git a/members/boraccount.pl b/members/boraccount.pl
index e3b85e7e77..23d2cc574c 100755
--- a/members/boraccount.pl
+++ b/members/boraccount.pl
@@ -128,6 +128,8 @@ if ( $op eq 'cud-refund' ) {
     my $charge      = Koha::Account::Lines->find($charge_id);
     my $amount      = scalar $input->param('amount');
     my $refund_type = scalar $input->param('refund_type');
+    my $note        = scalar $input->param('refund_note');
+
     $schema->txn_do(
         sub {
 
@@ -137,7 +139,8 @@ if ( $op eq 'cud-refund' ) {
                     branch         => $library_id,
                     staff_id       => $logged_in_user->id,
                     interface      => 'intranet',
-                    amount         => $amount
+                    amount         => $amount,
+                    note           => $note
                 }
             );
             unless ( $refund_type eq 'AC' ) {
@@ -148,7 +151,8 @@ if ( $op eq 'cud-refund' ) {
                         staff_id      => $logged_in_user->id,
                         cash_register => $registerid,
                         interface     => 'intranet',
-                        amount        => $amount
+                        amount        => $amount,
+                        note          => $note
                     }
                 );
             }
-- 
2.39.2