From adb2a417a8ae274a3d10d19f0c7f28c3351a2359 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Thu, 20 Jul 2017 10:43:28 +0000 Subject: [PATCH] [SIGNED OFF] Bug 18904 - QA Followup - fix and restore subfield 2 code I pulled it in last patch as it hasn't been working, offering this if that funcationality should be fixed instead of removed Signed-off-by: Katrin Fischer --- authorities/blinddetail-biblio-search.pl | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl index e96bd2b..335d670 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/authorities/blinddetail-biblio-search.pl @@ -116,6 +116,13 @@ if ($authid) { my $thes_008_11 = ''; $thes_008_11 = substr($record->field('008')->data(), 11, 1) if $record->field('008')->data(); $indicator2 = defined $thes_mapping{$thes_008_11} ? $thes_mapping{$thes_008_11} : $thes_008_11; + if ($indicator2 eq '7') { + if ($thes_008_11 eq 'r') { + push @subfield_loop, { marc_subfield => '2', marc_values => ('aat') }; + } elsif ($thes_008_11 eq 's') { + push @subfield_loop, { marc_subfield => '2', marc_values => ('sears') }; + } + } } if ($tag_from eq '130') { # unified title -- the special case if ($tag_to eq '830' || $tag_to eq '240') { -- 2.7.4