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