From 21fa3f64c31dad23e50e633a6f51f98c8f7ade12 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 13 Feb 2024 09:06:47 +0100
Subject: [PATCH] Bug 34478: Fix link to batch patron mod from reports

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 .../prog/en/modules/reports/guided_reports_start.tt  | 12 ++++++++----
 tools/modborrowers.pl                                |  2 ++
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt
index 193c7884fe..c2a40a2270 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt
@@ -996,12 +996,16 @@
                                 </form>
 
                                 <form method="get" action="/cgi-bin/koha/tools/modborrowers.pl" id="batch_patron_modification" target="_blank">
-                                    [% INCLUDE 'csrf-token.inc' %]
                                     <input type="hidden" name="op" value="show" />
                                     [% # Preserve the whitespace of the following textarea in order to format the values correctly %]
-                                    <textarea style="display:none" name="cardnumberlist" id="cardnumberlist">
-                                        [%- cardnumbers = PROCESS batch_list results=results batch_type='cardnumber' | trim | html %][% IF cardnumbers %][% SET batch_cardnumbers = 1 %][% cardnumbers | html %][% END -%]
-                                    </textarea>
+                                    [%- cardnumbers = PROCESS batch_list results=results batch_type='cardnumber' | trim | html %]
+                                    [% IF cardnumbers %]
+                                        [% SET batch_cardnumbers = cardnumbers.length %]
+                                        [% FOR b IN cardnumbers.split("\n") %]
+                                            <input type="hidden" name="cardnumber" value="[% b | uri %]" />
+                                        [% END -%]
+                                    [% END %]
+
                                 </form>
 
                                 <form action="/cgi-bin/koha/patroncards/edit-batch.pl" id="patron_card_creator" method="post" target="_blank">
diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl
index 0d15e256e7..2a6e7c07d8 100755
--- a/tools/modborrowers.pl
+++ b/tools/modborrowers.pl
@@ -66,6 +66,8 @@ if ( $op eq 'cud-show' ) {
     if( my $cardnumberlist = $input->param('cardnumberlist') ){
         # User submitted a list of card numbers
         push @patronidnumbers, split( /\s\n/, $cardnumberlist );
+    } elsif ( my @cardnumbers = $input->multi_param('cardnumber') ) {
+        @patronidnumbers = @cardnumbers;
     } elsif ( my $cardnumberuploadfile = $input->param('cardnumberuploadfile') ){
         # User uploaded a file of card numbers
         binmode $cardnumberuploadfile, ':encoding(UTF-8)';
-- 
2.39.5