From a814c3113674de5b67edd3be7090a61397bbaf3e 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

To test:
1) Apply patch, restart_all
2) From patron accounting page -> Create manual invoice. Enter some amount and select save and pay. Press confirm.
3) In the transactions tab, for the invoice you just created, under the actions column select issue refund.
4) This should open a modal with the ability to enter a note for the refund. Type in a note and confirm.
5) Ensure the note correctly shows in the table.

Signed-off-by: Roman Dolny <roman.dolny@jezuici.pl>
---
 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 08cb01995a..aee9ea3f8a 100644
--- a/Koha/Account/Line.pm
+++ b/Koha/Account/Line.pm
@@ -729,7 +729,8 @@ sub apply {
         register_id => $register_id,
         staff_id    => $staff_id,
         interface   => 'intranet',
-        amount      => $amount
+        amount      => $amount,
+        note        => $note
     }
   );
 
@@ -794,7 +795,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 b3938bd33e..f7f7d44830 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt
@@ -334,7 +334,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 2f3bbdf8db..6e9cd60047 100755
--- a/members/boraccount.pl
+++ b/members/boraccount.pl
@@ -132,6 +132,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 {
 
@@ -141,7 +143,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' ) {
@@ -152,7 +155,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