From 95c87290e5a4967ea9773ebc2302c12b8cc5f2a3 Mon Sep 17 00:00:00 2001 From: Nick Clemens 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 --- .../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 %] + @@ -206,6 +208,7 @@
[% INCLUDE 'csrf-token.inc' %]
+ 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