Lines 86-92
if ($authid) {
Link Here
|
86 |
# Get all values for each distinct subfield |
86 |
# Get all values for each distinct subfield |
87 |
my %subfields; |
87 |
my %subfields; |
88 |
for ( $field->subfields ) { |
88 |
for ( $field->subfields ) { |
89 |
next if $_->[0] == "9"; # $9 will be set with authid value |
89 |
next if $_->[0] eq '9'; # $9 will be set with authid value |
90 |
my $letter = $_->[0]; |
90 |
my $letter = $_->[0]; |
91 |
next if defined $subfields{$letter}; |
91 |
next if defined $subfields{$letter}; |
92 |
my @values = $field->subfield($letter); |
92 |
my @values = $field->subfield($letter); |
93 |
- |
|
|