From f731a196765f55a4d023f26792ce51fa0632ef79 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Thu, 1 Feb 2024 16:10:52 +0000
Subject: [PATCH] Bug 34478: Manual fix - add op - members/member-password

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

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/member-password.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/member-password.tt
index bdf39028a1..418bd7eadd 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/member-password.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/member-password.tt
@@ -54,6 +54,7 @@
 [% ELSE %]
 
 <form method="post" id="changepasswordf" action="/cgi-bin/koha/members/member-password.pl">
+<input type="hidden" name="op" value="cud-update"/>
 <input type="hidden" name="destination" value="[% destination | html %]" />
 <input type="hidden" name="borrowernumber" id="borrowernumber" value="[% patron.borrowernumber | html %]" />
 	[% IF ( errormsg ) %]
diff --git a/members/member-password.pl b/members/member-password.pl
index 5cc5f4c448..d6467326a7 100755
--- a/members/member-password.pl
+++ b/members/member-password.pl
@@ -31,6 +31,7 @@ my ( $template, $loggedinuser, $cookie, $staffflags ) = get_template_and_user(
     }
 );
 
+my $op           = $query->param('op') // q{};
 my $patron_id    = $input->param('member');
 my $destination  = $input->param('destination');
 my $newpassword  = $input->param('newpassword');
@@ -54,7 +55,7 @@ if ( ( $patron_id ne $loggedinuser ) && ( $category_type eq 'S' ) ) {
 
 push( @errors, 'NOMATCH' ) if ( ( $newpassword && $newpassword2 ) && ( $newpassword ne $newpassword2 ) );
 
-if ( $newpassword and not @errors) {
+if ( $op eq 'cud-update' && $newpassword and not @errors ) {
 
     try {
         $patron->set_password({ password => $newpassword });
-- 
2.20.1