|
Lines 10-15
use C4::Record;
Link Here
|
| 10 |
use Koha::Biblios; |
10 |
use Koha::Biblios; |
| 11 |
use Koha::CsvProfiles; |
11 |
use Koha::CsvProfiles; |
| 12 |
use Koha::Logger; |
12 |
use Koha::Logger; |
|
|
13 |
use Koha::RecordProcessor; |
| 13 |
use List::Util qw( all any ); |
14 |
use List::Util qw( all any ); |
| 14 |
|
15 |
|
| 15 |
sub _get_record_for_export { |
16 |
sub _get_record_for_export { |
|
Lines 120-131
sub _get_biblio_for_export {
Link Here
|
| 120 |
my $itemnumbers = $params->{itemnumbers}; |
121 |
my $itemnumbers = $params->{itemnumbers}; |
| 121 |
my $export_items = $params->{export_items} // 1; |
122 |
my $export_items = $params->{export_items} // 1; |
| 122 |
my $only_export_items_for_branches = $params->{only_export_items_for_branches}; |
123 |
my $only_export_items_for_branches = $params->{only_export_items_for_branches}; |
|
|
124 |
my $embed_see_from_headings = $params->{embed_see_from_headings}; |
| 123 |
|
125 |
|
| 124 |
my $biblio = Koha::Biblios->find($biblionumber); |
126 |
my $biblio = Koha::Biblios->find($biblionumber); |
| 125 |
my $record = eval { $biblio->metadata->record }; |
127 |
my $record = eval { $biblio->metadata->record }; |
| 126 |
|
128 |
|
| 127 |
return if $@ or not defined $record; |
129 |
return if $@ or not defined $record; |
| 128 |
|
130 |
|
|
|
131 |
if ($embed_see_from_headings) { |
| 132 |
my $record_processor = Koha::RecordProcessor->new( { filters => 'EmbedSeeFromHeadings' } ); |
| 133 |
$record_processor->process($record); |
| 134 |
} |
| 135 |
|
| 129 |
if ($export_items) { |
136 |
if ($export_items) { |
| 130 |
Koha::Biblio::Metadata->record( |
137 |
Koha::Biblio::Metadata->record( |
| 131 |
{ |
138 |
{ |