From a34d83c98fa07fa6d93738cd35f2d3f3d8375353 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 12 Nov 2012 10:18:30 +0100 Subject: [PATCH] Bug 9046: Followup FIX perl v.10 raises an error if itemnumbers if undefined Content-Type: text/plain; charset="utf-8" http://koha-community.org If the itemnumbers parameter is undef, perl raises an error : "Can't use an undefined value as an ARRAY reference" Signed-off-by: Mason James --- C4/Biblio.pm | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index eb213d5..25fcf31 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -2841,6 +2841,8 @@ sub EmbedItemsInMarcBiblio { my ($marc, $biblionumber, $itemnumbers) = @_; croak "No MARC record" unless $marc; + $itemnumbers = [] unless defined $itemnumbers; + my $frameworkcode = GetFrameworkCode($biblionumber); _strip_item_fields($marc, $frameworkcode); -- 1.7.2.5