|
Lines 461-470
sub marcrecord2csv {
Link Here
|
| 461 |
my $biblio = Koha::Biblios->find($biblionumber); |
461 |
my $biblio = Koha::Biblios->find($biblionumber); |
| 462 |
return unless $biblio; |
462 |
return unless $biblio; |
| 463 |
my $record = eval { |
463 |
my $record = eval { |
| 464 |
$biblio->metadata->record( |
464 |
$biblio->metadata->record; |
| 465 |
{ embed_items => 1, itemnumbers => $itemnumbers } ); |
|
|
| 466 |
}; |
465 |
}; |
| 467 |
return unless $record; |
466 |
return unless $record; |
|
|
467 |
|
| 468 |
# Embed items |
| 469 |
my $items = $biblio->items; |
| 470 |
$items = $items->search( { itemnumber => { -in => $itemnumbers } } ) |
| 471 |
if (@$itemnumber); |
| 472 |
my $rp = Koha::RecordProcessor->new( |
| 473 |
{ |
| 474 |
filters => ['EmbedItems'], |
| 475 |
options => { items => $items } |
| 476 |
} |
| 477 |
); |
| 478 |
$rp->process($record); |
| 479 |
|
| 468 |
# Getting the framework |
480 |
# Getting the framework |
| 469 |
my $frameworkcode = $biblio->frameworkcode; |
481 |
my $frameworkcode = $biblio->frameworkcode; |
| 470 |
|
482 |
|
| 471 |
- |
|
|