Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 35405: Remove noise from MARC::Record in SearchAuthorities

Browse source 
We are calling ->field with an undef parameter.
MARC::Record does not like that and says:
  Use of uninitialized value $tag in hash element at /usr/share/perl5/MARC/Record.pm line 202.
For now, a fix at our side.

Test plan:
Run SearchAuthorities without passing an authtypecode.
Without this patch, it results in a warning per hit.
With this patch, the noise should be gone.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit ac02c1d2ad)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Marcel de Rooy 2023-11-27 16:12:41 +01:00 committed by Fridolin Somers
parent df9d4b0f55
commit 30213b67ae
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
C4/AuthoritiesMarc.pm
View file

@ -297,12 +297,13 @@ sub SearchAuthorities {
my %newline;
$newline{authid} = $authid;
if ( !$skipmetadata ) {
my $auth_tag_to_report;
$auth_tag_to_report = Koha::Authority::Types->find($authtypecode)->auth_tag_to_report
if $authtypecode;
my $reported_tag;
my $mainentry = $authrecord->field($auth_tag_to_report);
my ( $auth_tag_to_report, $reported_tag, $mainentry );
if ( $authtypecode ) {
$auth_tag_to_report = Koha::Authority::Types->find($authtypecode)->auth_tag_to_report;
$mainentry = $authrecord->field($auth_tag_to_report) if $auth_tag_to_report;
}
if ($mainentry) {
$reported_tag = q{};
foreach ( $mainentry->subfields() ) {
$reported_tag .= '$' . $_->[0] . $_->[1];
}