From 1a887538b98c747c7ba6da5d9f31eaa62ed1d471 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Fri, 2 Feb 2024 10:06:43 +0000
Subject: [PATCH] Bug 34478: Changes for patron_lists/add-modify

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

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/patron_lists/add-modify.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/patron_lists/add-modify.tt
index 64a31d6133..7cf50e07df 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/patron_lists/add-modify.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/patron_lists/add-modify.tt
@@ -80,6 +80,7 @@
             </fieldset>
 
             <fieldset class="action">
+                <input type="hidden" name="op" value="cud-add_modify" />
                 <input type="hidden" name="patron_list_id" value="[% list.patron_list_id | html %]" />
                 <input type="submit" class="btn btn-primary" value="Save" />
                 <a href="lists.pl" class="cancel">Cancel</a>
diff --git a/patron_lists/add-modify.pl b/patron_lists/add-modify.pl
index 95ff728707..fac947f942 100755
--- a/patron_lists/add-modify.pl
+++ b/patron_lists/add-modify.pl
@@ -26,6 +26,7 @@ use C4::Output qw( output_html_with_http_headers );
 use Koha::List::Patron qw( AddPatronList GetPatronLists ModPatronList );
 
 my $cgi = CGI->new;
+my $op  = $cgi->param('op') // q{};
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
@@ -45,7 +46,7 @@ if ($id) {
     $template->param( list => $list );
 }
 
-if ($name) {
+if ( $op eq 'cud-add_modify' && $name ) {
     if ($id) {
         ModPatronList( { patron_list_id => $id, name => $name, shared => $shared } );
         print $cgi->redirect('lists.pl');
-- 
2.39.5