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 <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
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);