From 95c87290e5a4967ea9773ebc2302c12b8cc5f2a3 Mon Sep 17 00:00:00 2001
From: Nick Clemens <nick@bywatersolutions.com>
Date: Wed, 31 Jan 2024 11:39:08 -0500
Subject: [PATCH] Bug 34478: Manual fix - add ops - patron-detail-tabs

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 .../intranet-tmpl/prog/en/includes/patron-detail-tabs.inc    | 3 +++
 reserve/modrequest.pl                                        | 3 ++-
 reserve/modrequest_suspendall.pl                             | 5 ++++-
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/patron-detail-tabs.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/patron-detail-tabs.inc
index 5f6b763d00..b8ad2eb3b7 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/patron-detail-tabs.inc
+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/patron-detail-tabs.inc
@@ -177,6 +177,7 @@
                             [% SET hold_cancellation = AuthorisedValues.GetAuthValueDropbox('HOLD_CANCELLATION') %]
                             [% IF hold_cancellation.count %]
                                 <label for="cancellation-reason">Cancellation reason:</label>
+                                <input type="hidden" name="op" value="cud-cancelall" />
                                 <select name="cancellation-reason">
                                     <option value="">No reason given</option>
                                     [% FOREACH reason IN hold_cancellation %]
@@ -191,6 +192,7 @@
                         <form action="/cgi-bin/koha/reserve/modrequest_suspendall.pl" method="post">
                             [% INCLUDE 'csrf-token.inc' %]
                             <fieldset class="action">
+                                <input type="hidden" name="op" value="cud-suspendall" />
                                 <input type="hidden" name="from" value="[% patronpage | html %]" />
                                 <input type="hidden" name="borrowernumber" value="[% patron.borrowernumber | html %]" />
                                 <input type="submit" class="btn btn-primary" value="Suspend all holds" />
@@ -206,6 +208,7 @@
                         <form action="/cgi-bin/koha/reserve/modrequest_suspendall.pl" method="post">
                             [% INCLUDE 'csrf-token.inc' %]
                             <fieldset class="action">
+                                <input type="hidden" name="op" value="cud-unsuspendall" />
                                 <input type="hidden" name="from" value="borrower" />
                                 <input type="hidden" name="borrowernumber" value="[% patron.borrowernumber | html %]" />
                                 <input type="hidden" name="suspend" value="0" />
diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl
index e9a4c1b2a7..cd00207158 100755
--- a/reserve/modrequest.pl
+++ b/reserve/modrequest.pl
@@ -37,6 +37,7 @@ my $query = CGI->new;
 
 checkauth($query, 0, { reserveforothers => '*' }, 'intranet');
 
+my $op = $query->param('op') || 'cud-modifyall';
 my @reserve_id = $query->multi_param('reserve_id');
 my @rank = $query->multi_param('rank-request');
 my @borrower = $query->multi_param('borrowernumber');
@@ -62,7 +63,7 @@ if ($CancelBorrowerNumber) {
 }
 
 # 2) Cancel or modify the queue list of reserves (without item linked)
-else {
+elsif( $op eq 'cud-cancelall' || $op eq 'cud-modifyall' ) {
     for (my $i=0;$i<$count;$i++){
         undef $itemnumber[$i] if !$itemnumber[$i];
         my $suspend_until = $query->param( "suspend_until_" . $reserve_id[$i] );
diff --git a/reserve/modrequest_suspendall.pl b/reserve/modrequest_suspendall.pl
index 6c0847ec18..6d9c5f8b3d 100755
--- a/reserve/modrequest_suspendall.pl
+++ b/reserve/modrequest_suspendall.pl
@@ -32,11 +32,14 @@ my $query = CGI->new;
 
 checkauth($query, 0, { reserveforothers => '*' }, 'intranet');
 
+my $op = $query->param('op') || q{};
 my $borrowernumber = $query->param('borrowernumber');
 my $suspend        = $query->param('suspend');
 my $suspend_until  = $query->param('suspend_until');
 
-SuspendAll( borrowernumber => $borrowernumber, suspend_until => $suspend_until, suspend => $suspend );
+if( $op eq 'cud-suspendall' || $op eq 'cud-unsuspendall' ){
+    SuspendAll( borrowernumber => $borrowernumber, suspend_until => $suspend_until, suspend => $suspend );
+}
 
 my $from = $query->param('from');
 $from ||= q{};
-- 
2.39.5