Bug 11413: Fix field_numbers

[koha.git] / C4 / Record.pm

diff --git a/C4/Record.pm b/C4/Record.pm
index ed386a3..16d3f54 100644 (file)
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -366,6 +366,7 @@ C<$itemnumbers> - a list of itemnumbers to export
 
 sub marc2csv {
     my ($biblios, $id, $itemnumbers) = @_;
+    $itemnumbers ||= [];
     my $output;
     my $csv = Text::CSV::Encoded->new();
 
@@ -380,7 +381,7 @@ sub marc2csv {
     eval $preprocess if ($preprocess);
 
     my $firstpass = 1;
-    if ( $itemnumbers ) {
+    if ( @$itemnumbers ) {
         for my $itemnumber ( @$itemnumbers) {
             my $biblionumber = GetBiblionumberFromItemnumber $itemnumber;
             $output .= marcrecord2csv( $biblionumber, $id, $firstpass, $csv, $fieldprocessing, [$itemnumber] );