From f2e7862341a5c3b37295dd31d7ea0c23e634e2d0 Mon Sep 17 00:00:00 2001 From: David Cook Date: Fri, 2 Feb 2024 02:52:39 +0000 Subject: [PATCH] Bug 34478: Manual fix - fix add/edit/copy display of Z39.50 servers Signed-off-by: Jonathan Druart --- admin/z3950servers.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl index e5f564f8b3..d42d44d84a 100755 --- a/admin/z3950servers.pl +++ b/admin/z3950servers.pl @@ -89,11 +89,11 @@ if( $op eq 'cud-delete_confirmed' && $id ) { # Now list multiple records, or edit one record my $data = []; -if ( $op eq 'cud-add' || $op eq 'cud-edit' ) { +if ( $op eq 'add' || $op eq 'edit' ) { $data = ServerSearch( $schema, $id, $searchfield ) if $searchfield || $id; - delete $data->[0]->{id} if @$data && $op eq 'cud-add'; #cloning record + delete $data->[0]->{id} if @$data && $op eq 'add'; #cloning record $template->param( add_form => 1, server => @$data? $data->[0]: undef, - op => $op, type => $op eq 'cud-add'? lc $type: '' ); + op => $op, type => $op eq 'add'? lc $type: '' ); } else { $data = ServerSearch( $schema, $id, $searchfield ); $template->param( loop => \@$data, searchfield => $searchfield, id => $id, -- 2.39.5