From f95350e203c8fe6b939df0cc3edc47f3f03eefbb Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 14 Dec 2018 10:46:56 +0100 Subject: [PATCH] Bug 18736: (QA follow-up) Resolve uninitialized warn from Biblio.pm L3334 Content-Type: text/plain; charset=utf-8 Running t/db/Budgets.t: Use of uninitialized value in join or string at C4/Biblio.pm line 3334. Test plan: Run again. Verify no warnings left. Signed-off-by: Marcel de Rooy --- C4/Biblio.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 808ed8d..5dbbcb3 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -3331,7 +3331,7 @@ sub ModBiblioMarc { my $userenv = C4::Context->userenv; if ($userenv) { my $borrowernumber = $userenv->{number}; - my $borrowername = join ' ', @$userenv{qw(firstname surname)}; + my $borrowername = join ' ', map { $_ // q{} } @$userenv{qw(firstname surname)}; unless ($m_rs->in_storage) { Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorId'), $borrowernumber); Koha::Util::MARC::set_marc_field($record, C4::Context->preference('MarcFieldForCreatorName'), $borrowername); -- 2.1.4