From 1c91e91e089c0dc08c6403d32a0d477834d1b8d6 Mon Sep 17 00:00:00 2001
From: Lucas Gass <lucas@bywatersolutions.com>
Date: Thu, 1 Feb 2024 19:02:56 +0000
Subject: [PATCH] Bug 34478: Manual fix - add op -
 rotating_collections/transferCollection

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 .../prog/en/modules/rotating_collections/transferCollection.tt | 1 +
 rotating_collections/transferCollection.pl                     | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/rotating_collections/transferCollection.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/rotating_collections/transferCollection.tt
index 846fc70887..588742b60e 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/rotating_collections/transferCollection.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/rotating_collections/transferCollection.tt
@@ -74,6 +74,7 @@
                         <form action="transferCollection.pl" method="post">
                             [% INCLUDE 'csrf-token.inc' %]
                             <input type="hidden" name="colId" value="[% colId | html %]" />
+                            <input type="hidden" name="op" value="cud-transfer">
                             <fieldset class="rows">
                                 <ol>
                                     <li>
diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl
index 1d5dcf8d58..adc196eb4d 100755
--- a/rotating_collections/transferCollection.pl
+++ b/rotating_collections/transferCollection.pl
@@ -27,6 +27,7 @@ use CGI qw ( -utf8 );
 
 my $query = CGI->new;
 
+my $op       = $query->param('op') || q{};
 my $colId    = $query->param('colId');
 my $toBranch = $query->param('toBranch');
 
@@ -41,7 +42,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 
 ## Transfer collection
 my ( $success, $messages );
-if ($toBranch) {
+if ( $op eq 'cud-transfer' && $toBranch) {
     ( $success, $messages ) =
       TransferCollection( $colId, $toBranch );
 
-- 
2.39.5