From a8cc3b3db5b8599a5975da0ebef8e2f6236c0a9d Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 8 Feb 2024 09:56:39 +0100 Subject: [PATCH] Bug 34478: Add 'op' to authorities/merge Signed-off-by: Jonathan Druart --- authorities/merge.pl | 4 ++-- .../intranet-tmpl/prog/en/modules/authorities/merge.tt | 8 +++++--- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/authorities/merge.pl b/authorities/merge.pl index 0799c26b04..2c82340468 100755 --- a/authorities/merge.pl +++ b/authorities/merge.pl @@ -30,7 +30,7 @@ use Koha::MetadataRecord::Authority; my $input = CGI->new; my @authid = $input->multi_param('authid'); -my $merge = $input->param('merge'); +my $op = $input->param('op') || q{}; my @errors; @@ -46,7 +46,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( #------------------------ # Merging #------------------------ -if ($merge) { +if ($op eq 'cud-merge') { # Creating a new record from the html code my $record = TransformHtmlToMarc($input, 0); diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/authorities/merge.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/authorities/merge.tt index 531852e3ae..5c577c7556 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/authorities/merge.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/authorities/merge.tt @@ -68,8 +68,7 @@ div#result { margin-top: 1em; } [% ELSIF ( choosereference ) %]

Please choose which record will be the reference for the merge. The record chosen as reference will be kept, and the other will be deleted.

-
- [% INCLUDE 'csrf-token.inc' %] +
Merge reference
    @@ -119,7 +118,10 @@ div#result { margin-top: 1em; } -
    +
    + + +
    [% END %] -- 2.39.5