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