Lines 427-438
sub marc2csv {
Link Here
|
427 |
for my $itemnumber ( @$itemnumbers) { |
427 |
for my $itemnumber ( @$itemnumbers) { |
428 |
my $item = Koha::Items->find( $itemnumber ); |
428 |
my $item = Koha::Items->find( $itemnumber ); |
429 |
my $biblionumber = $item->biblio->biblionumber; |
429 |
my $biblionumber = $item->biblio->biblionumber; |
430 |
$output .= marcrecord2csv( $biblionumber, $id, $firstpass, $csv, $fieldprocessing, [$itemnumber] ); |
430 |
$output .= marcrecord2csv( $biblionumber, $id, $firstpass, $csv, $fieldprocessing, [$itemnumber] ) // ''; |
431 |
$firstpass = 0; |
431 |
$firstpass = 0; |
432 |
} |
432 |
} |
433 |
} else { |
433 |
} else { |
434 |
foreach my $biblio (@$biblios) { |
434 |
foreach my $biblio (@$biblios) { |
435 |
$output .= marcrecord2csv( $biblio, $id, $firstpass, $csv, $fieldprocessing ); |
435 |
$output .= marcrecord2csv( $biblio, $id, $firstpass, $csv, $fieldprocessing ) // ''; |
436 |
$firstpass = 0; |
436 |
$firstpass = 0; |
437 |
} |
437 |
} |
438 |
} |
438 |
} |
439 |
- |
|
|