View | Details | Raw Unified | Return to bug 32509
Collapse All | Expand All

(-)a/Koha/Exporter/Record.pm (-2 / +13 lines)
Lines 120-133 sub _get_biblio_for_export { Link Here
120
    my $export_items                   = $params->{export_items} // 1;
120
    my $export_items                   = $params->{export_items} // 1;
121
    my $only_export_items_for_branches = $params->{only_export_items_for_branches};
121
    my $only_export_items_for_branches = $params->{only_export_items_for_branches};
122
    my $embed_see_from_headings        = $params->{embed_see_from_headings};
122
    my $embed_see_from_headings        = $params->{embed_see_from_headings};
123
    my $embed_see_also_from_headings   = $params->{embed_see_also_from_headings};
123
124
124
    my $biblio = Koha::Biblios->find($biblionumber);
125
    my $biblio = Koha::Biblios->find($biblionumber);
125
    my $record = eval { $biblio->metadata->record };
126
    my $record = eval { $biblio->metadata->record };
126
127
127
    return if $@ or not defined $record;
128
    return if $@ or not defined $record;
128
129
129
    if ($embed_see_from_headings) {
130
    if ( $embed_see_from_headings || $embed_see_also_from_headings ) {
130
        my $record_processor = Koha::RecordProcessor->new( { filters => 'EmbedSeeFromHeadings' } );
131
        my @other_headings;
132
        push @other_headings, 'see_from'      if $embed_see_from_headings;
133
        push @other_headings, 'see_also_from' if $embed_see_also_from_headings;
134
        my $record_processor = Koha::RecordProcessor->new(
135
            {
136
                filters => 'EmbedSeeFromHeadings',
137
                options => {
138
                    other_headings => \@other_headings,
139
                }
140
            }
141
        );
131
        $record_processor->process($record);
142
        $record_processor->process($record);
132
    }
143
    }
133
144
(-)a/misc/export_records.pl (-35 / +41 lines)
Lines 59-64 my ( Link Here
59
    $end_accession,
59
    $end_accession,
60
    $marc_conditions,
60
    $marc_conditions,
61
    $embed_see_from_headings,
61
    $embed_see_from_headings,
62
    $embed_see_also_from_headings,
62
    $report_id,
63
    $report_id,
63
    @report_params,
64
    @report_params,
64
    $report,
65
    $report,
Lines 70-101 my ( Link Here
70
);
71
);
71
72
72
GetOptions(
73
GetOptions(
73
    'format=s'                => \$output_format,
74
    'format=s'                     => \$output_format,
74
    'date=s'                  => \$timestamp,
75
    'date=s'                       => \$timestamp,
75
    'dont_export_items'       => \$dont_export_items,
76
    'dont_export_items'            => \$dont_export_items,
76
    'csv_profile_id=s'        => \$csv_profile_id,
77
    'csv_profile_id=s'             => \$csv_profile_id,
77
    'deleted_barcodes'        => \$deleted_barcodes,
78
    'deleted_barcodes'             => \$deleted_barcodes,
78
    'clean'                   => \$clean,
79
    'clean'                        => \$clean,
79
    'filename=s'              => \$filename,
80
    'filename=s'                   => \$filename,
80
    'record-type=s'           => \$record_type,
81
    'record-type=s'                => \$record_type,
81
    'id_list_file=s'          => \$id_list_file,
82
    'id_list_file=s'               => \$id_list_file,
82
    'starting_authid=s'       => \$starting_authid,
83
    'starting_authid=s'            => \$starting_authid,
83
    'ending_authid=s'         => \$ending_authid,
84
    'ending_authid=s'              => \$ending_authid,
84
    'authtype=s'              => \$authtype,
85
    'authtype=s'                   => \$authtype,
85
    'starting_biblionumber=s' => \$starting_biblionumber,
86
    'starting_biblionumber=s'      => \$starting_biblionumber,
86
    'ending_biblionumber=s'   => \$ending_biblionumber,
87
    'ending_biblionumber=s'        => \$ending_biblionumber,
87
    'itemtype=s'              => \$itemtype,
88
    'itemtype=s'                   => \$itemtype,
88
    'starting_callnumber=s'   => \$starting_callnumber,
89
    'starting_callnumber=s'        => \$starting_callnumber,
89
    'ending_callnumber=s'     => \$ending_callnumber,
90
    'ending_callnumber=s'          => \$ending_callnumber,
90
    'start_accession=s'       => \$start_accession,
91
    'start_accession=s'            => \$start_accession,
91
    'end_accession=s'         => \$end_accession,
92
    'end_accession=s'              => \$end_accession,
92
    'marc_conditions=s'       => \$marc_conditions,
93
    'marc_conditions=s'            => \$marc_conditions,
93
    'embed_see_from_headings' => \$embed_see_from_headings,
94
    'embed_see_from_headings'      => \$embed_see_from_headings,
94
    'report_id=s'             => \$report_id,
95
    'embed_see_also_from_headings' => \$embed_see_also_from_headings,
95
    'report_param=s'          => \@report_params,
96
    'report_id=s'                  => \$report_id,
96
    'destination_server_id=s' => \$destination_server_id,
97
    'report_param=s'               => \@report_params,
97
    'delete_local_after_run'  => \$delete_local_after_run,
98
    'destination_server_id=s'      => \$destination_server_id,
98
    'h|help|?'                => \$help,
99
    'delete_local_after_run'       => \$delete_local_after_run,
100
    'h|help|?'                     => \$help,
99
) || pod2usage(1);
101
) || pod2usage(1);
100
102
101
if ($help) {
103
if ($help) {
Lines 348-361 if ($deleted_barcodes) { Link Here
348
} else {
350
} else {
349
    Koha::Exporter::Record::export(
351
    Koha::Exporter::Record::export(
350
        {
352
        {
351
            record_type             => $record_type,
353
            record_type                  => $record_type,
352
            record_ids              => \@record_ids,
354
            record_ids                   => \@record_ids,
353
            record_conditions       => @marc_conditions ? \@marc_conditions : undef,
355
            record_conditions            => @marc_conditions ? \@marc_conditions : undef,
354
            format                  => $output_format,
356
            format                       => $output_format,
355
            csv_profile_id          => $csv_profile_id,
357
            csv_profile_id               => $csv_profile_id,
356
            export_items            => ( not $dont_export_items ),
358
            export_items                 => ( not $dont_export_items ),
357
            clean                   => $clean                   || 0,
359
            clean                        => $clean                        || 0,
358
            embed_see_from_headings => $embed_see_from_headings || 0,
360
            embed_see_from_headings      => $embed_see_from_headings      || 0,
361
            embed_see_also_from_headings => $embed_see_also_from_headings || 0,
359
        }
362
        }
360
    );
363
    );
361
}
364
}
Lines 536-541 Print a brief help message. Link Here
536
539
537
 --embed_see_from_headings      Embed see from (non-preferred form) headings in bibliographic record.
540
 --embed_see_from_headings      Embed see from (non-preferred form) headings in bibliographic record.
538
541
542
=item B<--embed_see_also_from_headings>
543
544
 --embed_see_also_from_headings Embed see also from (non-preferred form) headings in bibliographic record.
545
539
=item B<--report_id>
546
=item B<--report_id>
540
547
541
--report_id=ID                  Export biblionumbers or authids from a given saved report output.
548
--report_id=ID                  Export biblionumbers or authids from a given saved report output.
542
- 

Return to bug 32509