Lines 224-229
for my $field852 (@field852s) {
Link Here
|
224 |
my @subfieldc = $field852->subfield('c'); |
224 |
my @subfieldc = $field852->subfield('c'); |
225 |
$noitemloc{'noitemloc'} .= ' (' . join('/', @subfieldc) . ')'; |
225 |
$noitemloc{'noitemloc'} .= ' (' . join('/', @subfieldc) . ')'; |
226 |
} |
226 |
} |
|
|
227 |
if ($field852->subfield('j')) { |
228 |
my @subfieldj = $field852->subfield('j'); |
229 |
$noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldj); |
230 |
} elsif ($field852->subfield('i')) { |
231 |
my @subfieldi = $field852->subfield('i'); |
232 |
$noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldi); |
233 |
} elsif ($field852->subfield('p')) { |
234 |
my @subfieldp = $field852->subfield('p'); |
235 |
$noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldp); |
236 |
} elsif ($field852->subfield('l')) { |
237 |
my @subfieldl = $field852->subfield('l'); |
238 |
$noitemloc{'noitemloc'} .= ': ' . join(',', @subfieldl); |
239 |
} |
227 |
push(@noitemlocations, \%noitemloc); |
240 |
push(@noitemlocations, \%noitemloc); |
228 |
} |
241 |
} |
229 |
|
242 |
|
230 |
- |
|
|