|
Lines 206-211
my $marcseriesarray = GetMarcSeries ($record,$marcflavour);
Link Here
|
| 206 |
my $marcurlsarray = GetMarcUrls ($record,$marcflavour); |
206 |
my $marcurlsarray = GetMarcUrls ($record,$marcflavour); |
| 207 |
my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($biblionumber)); |
207 |
my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($biblionumber)); |
| 208 |
|
208 |
|
|
|
209 |
my @noitemlocations = (); |
| 210 |
my $location_noitems = 0; |
| 211 |
my $noitemlocation; |
| 212 |
my @field852s = $record->field('852'); |
| 213 |
|
| 214 |
for my $field852 (@field852s) { |
| 215 |
$location_noitems = 1; |
| 216 |
my %noitemloc; |
| 217 |
$noitemloc{'noitemloc'} = $field852->subfield('a'); |
| 218 |
|
| 219 |
if ($field852->subfield('b')) { |
| 220 |
my @subfieldb = $field852->subfield('b'); |
| 221 |
$noitemloc{'noitemloc'} .= '--' . join('--', @subfieldb); |
| 222 |
} |
| 223 |
if ($field852->subfield('c')) { |
| 224 |
my @subfieldc = $field852->subfield('c'); |
| 225 |
$noitemloc{'noitemloc'} .= ' (' . join('/', @subfieldc) . ')'; |
| 226 |
} |
| 227 |
push(@noitemlocations, \%noitemloc); |
| 228 |
} |
| 229 |
|
| 209 |
$template->param( |
230 |
$template->param( |
| 210 |
MARCNOTES => $marcnotesarray, |
231 |
MARCNOTES => $marcnotesarray, |
| 211 |
MARCSUBJCTS => $marcsubjctsarray, |
232 |
MARCSUBJCTS => $marcsubjctsarray, |
|
Lines 219-224
my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($bib
Link Here
|
| 219 |
itemdata_uri => $itemfields{uri}, |
240 |
itemdata_uri => $itemfields{uri}, |
| 220 |
itemdata_copynumber => $itemfields{copynumber}, |
241 |
itemdata_copynumber => $itemfields{copynumber}, |
| 221 |
itemdata_itemnotes => $itemfields{itemnotes}, |
242 |
itemdata_itemnotes => $itemfields{itemnotes}, |
|
|
243 |
location_noitems => $location_noitems, |
| 244 |
NOITEMLOCATIONS => \@noitemlocations, |
| 222 |
authorised_value_images => $biblio_authorised_value_images, |
245 |
authorised_value_images => $biblio_authorised_value_images, |
| 223 |
subtitle => $subtitle, |
246 |
subtitle => $subtitle, |
| 224 |
); |
247 |
); |
| 225 |
- |
|
|