|
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 |
- |
|
|