Attachment 150482 Details for Bug 33348 – Bug 33348: (follow-up) Fix if no 008 defined

[patch] Bug 33348: (follow-up) Fix if no 008 defined

Bug-33348-follow-up-Fix-if-no-008-defined.patch (text/plain), 3.19 KB, created by Lucas Gass (lukeg) on 2023-05-01 22:49:33 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Lucas Gass (lukeg)

Created: 2023-05-01 22:49:33 UTC

Size: 3.19 KB

patch

obsolete

>From 1cd1c23fd6c63405e63cd0e56cdc2e9853a4e3fe Mon Sep 17 00:00:00 2001
>From: Aleisha Amohia <aleishaamohia@hotmail.com>
>Date: Mon, 1 May 2023 22:38:57 +0000
>Subject: [PATCH] Bug 33348: (follow-up) Fix if no 008 defined
>
>And copy fix across to Zebra search as well.
>
>Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
>---
> C4/AuthoritiesMarc.pm                     | 16 +++++++++-------
> Koha/SearchEngine/Elasticsearch/Search.pm | 16 +++++++++-------
> 2 files changed, 18 insertions(+), 14 deletions(-)
>
>diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
>index 02f9103de3..adb453034a 100644
>--- a/C4/AuthoritiesMarc.pm
>+++ b/C4/AuthoritiesMarc.pm
>@@ -321,13 +321,15 @@ sub SearchAuthorities {
>             if ( C4::Context->preference('ShowHeadingUse') ) {
>                 # checking valid heading use
>                 my $f008 = $authrecord->field('008');
>-                my $pos14to16 = substr( $f008->data, 14, 3 );
>-                my $main = substr( $pos14to16, 0, 1 );
>-                $newline{main} = 1 if $main eq 'a';
>-                my $subject = substr( $pos14to16, 1, 1);
>-                $newline{subject} = 1 if $subject eq 'a';
>-                my $series = substr( $pos14to16, 2, 1 );
>-                $newline{series} = 1 if $series eq 'a';
>+                if ( $f008 ) {
>+                    my $pos14to16 = substr( $f008->data, 14, 3 );
>+                    my $main = substr( $pos14to16, 0, 1 );
>+                    $newline{main} = 1 if $main eq 'a';
>+                    my $subject = substr( $pos14to16, 1, 1);
>+                    $newline{subject} = 1 if $subject eq 'a';
>+                    my $series = substr( $pos14to16, 2, 1 );
>+                    $newline{series} = 1 if $series eq 'a';
>+                }
>             }
> 
>             $newline{authtype}     = defined($thisauthtype) ?
>diff --git a/Koha/SearchEngine/Elasticsearch/Search.pm b/Koha/SearchEngine/Elasticsearch/Search.pm
>index 8f7ae481b3..5a4bf31409 100644
>--- a/Koha/SearchEngine/Elasticsearch/Search.pm
>+++ b/Koha/SearchEngine/Elasticsearch/Search.pm
>@@ -249,13 +249,15 @@ sub search_auth_compat {
>             if ( C4::Context->preference('ShowHeadingUse') ) {
>                 # checking valid heading use
>                 my $f008 = $marc->field('008');
>-                my $pos14to16 = substr( $f008->data, 14, 3 );
>-                my $main = substr( $pos14to16, 0, 1 );
>-                $result{main} = 1 if $main eq 'a';
>-                my $subject = substr( $pos14to16, 1, 1);
>-                $result{subject} = 1 if $subject eq 'a';
>-                my $series = substr( $pos14to16, 2, 1 );
>-                $result{series} = 1 if $series eq 'a';
>+                if ( $f008 ) {
>+                    my $pos14to16 = substr( $f008->data, 14, 3 );
>+                    my $main = substr( $pos14to16, 0, 1 );
>+                    $result{main} = 1 if $main eq 'a';
>+                    my $subject = substr( $pos14to16, 1, 1);
>+                    $result{subject} = 1 if $subject eq 'a';
>+                    my $series = substr( $pos14to16, 2, 1 );
>+                    $result{series} = 1 if $series eq 'a';
>+                }
>             }
> 
>             # Reimplementing BuildSummary is out of scope because it'll be hard
>-- 
>2.30.2

Actions: View | Diff | Splinter Review

Attachments on bug 33348: 148791 | 150440 | 150479 | 150481 | 150482 | 152570 | 152571 | 159066 | 171601 | 171602 | 171603 | 171686 | 171687 | 171688 | 171875 | 171876 | 173987 | 173988 | 173989