From a7525cf6b7b96f937e4f8685322fa42785e3dcec Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Fri, 9 Feb 2024 10:48:12 +0000
Subject: [PATCH] Bug 34478: Changes for tools/cleanborrowers

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 .../intranet-tmpl/prog/en/modules/tools/cleanborrowers.tt     | 4 ++--
 tools/cleanborrowers.pl                                       | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/cleanborrowers.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/cleanborrowers.tt
index cf78a2e5b6..824b84fb64 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/cleanborrowers.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/cleanborrowers.tt
@@ -100,8 +100,7 @@
 </ul>
 </div>
 <div id="step1">
-    <form name="f1" id="delete_patrons_form" action="/cgi-bin/koha/tools/cleanborrowers.pl" method="post">
-        [% INCLUDE 'csrf-token.inc' %]
+    <form name="f1" id="delete_patrons_form" action="/cgi-bin/koha/tools/cleanborrowers.pl" method="get">
     <fieldset>
     <legend>Delete patrons</legend>
         <h3><input id="checkborrower" type="checkbox" name="checkbox" value="borrower" /><label for="checkborrower"> Verify you want to delete patrons</label></h3>
@@ -180,6 +179,7 @@
 <div id="step2">
         <form name="f2" action="/cgi-bin/koha/tools/cleanborrowers.pl" method="post">
             [% INCLUDE 'csrf-token.inc' %]
+            <input type="hidden" name="op" value="cud-delete" />
 
         <div class="dialog alert">
             <h3>Warning</h3>
diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl
index 98ee38312e..55d98689fa 100755
--- a/tools/cleanborrowers.pl
+++ b/tools/cleanborrowers.pl
@@ -43,6 +43,7 @@ use Koha::Patrons;
 use Koha::List::Patron qw( GetPatronLists );
 
 my $cgi = CGI->new;
+my $op  = $cgi->param('op') // q{};
 
 # Fetch the parameter list as a hash in scalar context:
 #  * returns parameter list as tied hash ref
@@ -107,7 +108,7 @@ if ( $step == 2 ) {
     );
 }
 
-elsif ( $step == 3 ) {
+elsif ( $op eq 'cud-delete' && $step == 3 ) {
     my $do_delete = $params->{'do_delete'};
     my $do_anonym = $params->{'do_anonym'};
 
-- 
2.39.5