From d3804f3c7bbedb0cbec923e527f79045f91f0757 Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek Date: Thu, 11 Apr 2024 12:36:25 +0000 Subject: [PATCH] Bug 36577: (bug 34478 follow-up) marc21_linking_section.pl not working After applying "Bug 34478: op =~ ^cud- everywhere" the plugin marc21_linking_section.pl stopped working properly. Changes in marc21_linking_section.tt need to be reflected in marc21_linking_section.pl Test plan ========= 1. Configure a MARC bibliographic framework to use the plugin marc21_linking_section.pl (e.g. in 773 $t). 2. Start creating a new record and go to 773 $t. Activate the plugin to find the host record (perform a search for any common word). 3. You will get no results. 4. Apply the patch, restart plack etc. 5. Repeat p. 2 - you should now see some results. BTW, QA people - maybe it would pay to remove the commented code present there since the very beginning (2012). --- cataloguing/value_builder/marc21_linking_section.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cataloguing/value_builder/marc21_linking_section.pl b/cataloguing/value_builder/marc21_linking_section.pl index 04d7d342e3..535e422bb7 100755 --- a/cataloguing/value_builder/marc21_linking_section.pl +++ b/cataloguing/value_builder/marc21_linking_section.pl @@ -59,7 +59,7 @@ my $launcher = sub { my $op = $query->param('op'); # -- op could be equal to # * fillinput - # * do_search + # * cud-do_search my $type = $query->param('type'); my $startfrom = $query->param('startfrom'); @@ -164,7 +164,7 @@ my $launcher = sub { subfield_value_z => "$subfield_value_z", ); ############################################################### - } elsif ( $op eq "do_search" ) { + } elsif ( $op eq "cud-do_search" ) { my $search = $query->param('search'); my $itype = $query->param('itype'); my $startfrom = $query->param('startfrom'); -- 2.30.2