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

(-)a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm (-1 / +5 lines)
Lines 34-39 use strict; Link Here
34
use warnings;
34
use warnings;
35
use Carp;
35
use Carp;
36
use Koha::Authority;
36
use Koha::Authority;
37
use C4::Biblio qw/GetMarcFromKohaField/;
37
38
38
use base qw(Koha::RecordProcessor::Base);
39
use base qw(Koha::RecordProcessor::Base);
39
our $NAME = 'EmbedSeeFromHeadings';
40
our $NAME = 'EmbedSeeFromHeadings';
Lines 72-79 sub filter { Link Here
72
sub _processrecord {
73
sub _processrecord {
73
    my $record = shift;
74
    my $record = shift;
74
75
76
    my ($item_tag) = GetMarcFromKohaField("items.itemnumber", '');
77
    $item_tag ||= '';
78
75
    foreach my $field ( $record->fields() ) {
79
    foreach my $field ( $record->fields() ) {
76
        next if $field->is_control_field();
80
        next if $field->is_control_field();
81
        next if $field->tag() eq $item_tag;
77
        my $authid = $field->subfield('9');
82
        my $authid = $field->subfield('9');
78
83
79
        next unless $authid;
84
        next unless $authid;
80
- 

Return to bug 14456