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