From 01b2d9b3e0f92207eaf9024c1209ce8f1820e875 Mon Sep 17 00:00:00 2001
From: Sam Lau <samalau@gmail.com>
Date: Wed, 26 Jun 2024 19:34:37 +0000
Subject: [PATCH] Bug 23674: Add ability to add a note to issue payout

To test:
1) Apply patch, restart_all
2) From patron accounting page -> Create manual credit. Put in some amount and press add credit.
3) Under the actions column, select 'Issue Payout'
4) You can now enter a note. Type something in and press confirm.
5) Ensure the note shows up in the note column.

Signed-off-by: Roman Dolny <roman.dolny@jezuici.pl>
---
 .../intranet-tmpl/prog/en/modules/members/boraccount.tt     | 5 ++++-
 members/boraccount.pl                                       | 6 ++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

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 0c8a3944f2..0b2b1d7f49 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/boraccount.tt
@@ -283,7 +283,10 @@
                                     </select>
                                 </li>
                                 [% END %]
-
+                                <li>
+                                    <label for="payout_note">Note: </label>
+                                    <input type="text" name="payout_note" id="payout_note">
+                                </li>
                             </ol>
                         </fieldset> <!-- /.rows -->
                     </div> <!-- /.modal-body -->
diff --git a/members/boraccount.pl b/members/boraccount.pl
index e3b85e7e77..ee6ab273b6 100755
--- a/members/boraccount.pl
+++ b/members/boraccount.pl
@@ -88,6 +88,7 @@ if ( $op eq 'cud-payout' ) {
     my $payment     = Koha::Account::Lines->find($payment_id);
     my $amount      = scalar $input->param('amount');
     my $payout_type = scalar $input->param('payout_type');
+    my $note        = scalar $input->param('payout_note');
     if ( $payment_id eq "" ) {
         $schema->txn_do(
             sub {
@@ -98,7 +99,7 @@ if ( $op eq 'cud-payout' ) {
                         staff_id      => $logged_in_user->id,
                         cash_register => $registerid,
                         interface     => 'intranet',
-                        amount        => $amount
+                        amount        => $amount,
                     }
                 );
             }
@@ -114,7 +115,8 @@ if ( $op eq 'cud-payout' ) {
                         staff_id      => $logged_in_user->id,
                         cash_register => $registerid,
                         interface     => 'intranet',
-                        amount        => $amount
+                        amount        => $amount,
+                        note          => $note
                     }
                 );
             }
-- 
2.39.2