From c16e579d48418eb1a7529e3a2f7a3946b7f3ba6b Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Fri, 9 Feb 2024 11:23:35 +0000
Subject: [PATCH] Bug 34478: Add 'op' to sendbasketform

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

diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl
index 352e90c7ae..298188f834 100755
--- a/basket/sendbasket.pl
+++ b/basket/sendbasket.pl
@@ -42,12 +42,13 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
     }
 );
 
+my $op        = $query->param('op') || q{};
 my $bib_list  = $query->param('bib_list') || '';
 my $email_add = $query->param('email_add');
 
 my $dbh = C4::Context->dbh;
 
-if ($email_add) {
+if ( $op eq "cud-send" && $email_add ) {
 
     my $patron     = Koha::Patrons->find($borrowernumber);
     my $user_email = $patron->notice_email_address;
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/basket/sendbasketform.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/basket/sendbasketform.tt
index 8dcce676cc..374c9ebeef 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/basket/sendbasketform.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/basket/sendbasketform.tt
@@ -51,6 +51,7 @@
     <nav class="navbar navbar-default navbar-fixed-bottom">
         <div class="container-fluid">
             <fieldset class="action">
+                <input type="hidden" name="op" value="cud-send" />
                 <input type="submit" class="btn btn-primary" value="Send" />
                 <button type="button" class="btn btn-default close_window">Cancel</button>
             </fieldset>
-- 
2.39.5