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