From 128517fe66bd09f72ade74e81fcab3e71873fde8 Mon Sep 17 00:00:00 2001 From: Kyle Hall Date: Tue, 14 Mar 2023 12:32:22 -0400 Subject: [PATCH] Bug 3150: (QA follow-up) Remove unused variables Signed-off-by: Kyle M Hall Signed-off-by: Tomas Cohen Arazi --- Koha/Biblio.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Koha/Biblio.pm b/Koha/Biblio.pm index f73fd7271c..8c453a83ef 100644 --- a/Koha/Biblio.pm +++ b/Koha/Biblio.pm @@ -1333,7 +1333,7 @@ Return host only sub get_marc_host_only { my ($self) = @_; - my ( $host, $relatedparts ) = $self->get_marc_host; + my ( $host ) = $self->get_marc_host; return $host; } @@ -1349,7 +1349,7 @@ Return related parts only sub get_marc_relatedparts_only { my ($self) = @_; - my ( $host, $relatedparts ) = $self->get_marc_host; + my ( undef, $relatedparts ) = $self->get_marc_host; return $relatedparts; } -- 2.39.5