|
Lines 144-151
my $hostrecords;
Link Here
|
| 144 |
# adding items linked via host biblios |
144 |
# adding items linked via host biblios |
| 145 |
my @hostitems = GetHostItemsInfo($record); |
145 |
my @hostitems = GetHostItemsInfo($record); |
| 146 |
if (@hostitems){ |
146 |
if (@hostitems){ |
| 147 |
$hostrecords =1; |
147 |
$hostrecords =1; |
| 148 |
push (@items,@hostitems); |
148 |
push (@items,@hostitems); |
| 149 |
} |
149 |
} |
| 150 |
|
150 |
|
| 151 |
my $dat = &GetBiblioData($biblionumber); |
151 |
my $dat = &GetBiblioData($biblionumber); |
|
Lines 157-163
my @subs;
Link Here
|
| 157 |
|
157 |
|
| 158 |
foreach my $subscription (@subscriptions) { |
158 |
foreach my $subscription (@subscriptions) { |
| 159 |
my %cell; |
159 |
my %cell; |
| 160 |
my $serials_to_display; |
160 |
my $serials_to_display; |
| 161 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
161 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
| 162 |
$cell{subscriptionnotes} = $subscription->{internalnotes}; |
162 |
$cell{subscriptionnotes} = $subscription->{internalnotes}; |
| 163 |
$cell{missinglist} = $subscription->{missinglist}; |
163 |
$cell{missinglist} = $subscription->{missinglist}; |
|
Lines 167-181
foreach my $subscription (@subscriptions) {
Link Here
|
| 167 |
$cell{callnumber} = $subscription->{callnumber}; |
167 |
$cell{callnumber} = $subscription->{callnumber}; |
| 168 |
$cell{closed} = $subscription->{closed}; |
168 |
$cell{closed} = $subscription->{closed}; |
| 169 |
#get the three latest serials. |
169 |
#get the three latest serials. |
| 170 |
$serials_to_display = $subscription->{staffdisplaycount}; |
170 |
$serials_to_display = $subscription->{staffdisplaycount}; |
| 171 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
171 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
| 172 |
$cell{staffdisplaycount} = $serials_to_display; |
172 |
$cell{staffdisplaycount} = $serials_to_display; |
| 173 |
$cell{latestserials} = |
173 |
$cell{latestserials} = GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
| 174 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
|
|
| 175 |
push @subs, \%cell; |
174 |
push @subs, \%cell; |
| 176 |
} |
175 |
} |
| 177 |
|
176 |
|
| 178 |
|
|
|
| 179 |
# Get acquisition details |
177 |
# Get acquisition details |
| 180 |
if ( C4::Context->preference('AcquisitionDetails') ) { |
178 |
if ( C4::Context->preference('AcquisitionDetails') ) { |
| 181 |
my $orders = C4::Acquisition::GetHistory( biblionumber => $biblionumber, get_canceled_order => 1 ); |
179 |
my $orders = C4::Acquisition::GetHistory( biblionumber => $biblionumber, get_canceled_order => 1 ); |
|
Lines 242-248
foreach my $item (@items) {
Link Here
|
| 242 |
#get shelf location and collection code description if they are authorised value. |
240 |
#get shelf location and collection code description if they are authorised value. |
| 243 |
# same thing for copy number |
241 |
# same thing for copy number |
| 244 |
my $shelfcode = $item->{'location'}; |
242 |
my $shelfcode = $item->{'location'}; |
| 245 |
$item->{'location'} = $shelflocations->{$shelfcode} if ( defined( $shelfcode ) && defined($shelflocations) && exists( $shelflocations->{$shelfcode} ) ); |
243 |
my $permshelfcode = $item->{'permanent_location'}; |
|
|
244 |
$item->{'location'} = ( defined( $permshelfcode ) && defined($shelflocations) && exists( $shelflocations->{$permshelfcode} ) ) ? $shelflocations->{$permshelfcode} : undef; |
| 245 |
$item->{'location'} .= ' (' . $shelflocations->{$shelfcode} . ')' if ( defined( $shelfcode ) && defined($shelflocations) && exists($shelflocations->{$shelfcode} ) && ($shelfcode ne $permshelfcode) ); |
| 246 |
my $ccode = $item->{'ccode'}; |
246 |
my $ccode = $item->{'ccode'}; |
| 247 |
$item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) ); |
247 |
$item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) ); |
| 248 |
my $copynumber = $item->{'copynumber'}; |
248 |
my $copynumber = $item->{'copynumber'}; |
|
Lines 256-262
foreach my $item (@items) {
Link Here
|
| 256 |
my $ItemBorrowerReserveInfo = C4::Members::GetMember( borrowernumber => $reservedfor); |
256 |
my $ItemBorrowerReserveInfo = C4::Members::GetMember( borrowernumber => $reservedfor); |
| 257 |
|
257 |
|
| 258 |
if (C4::Context->preference('HidePatronName')){ |
258 |
if (C4::Context->preference('HidePatronName')){ |
| 259 |
$item->{'hidepatronname'} = 1; |
259 |
$item->{'hidepatronname'} = 1; |
| 260 |
} |
260 |
} |
| 261 |
|
261 |
|
| 262 |
if ( defined $reservedate ) { |
262 |
if ( defined $reservedate ) { |
|
Lines 272-278
foreach my $item (@items) {
Link Here
|
| 272 |
} |
272 |
} |
| 273 |
|
273 |
|
| 274 |
|
274 |
|
| 275 |
# Check the transit status |
275 |
# Check the transit status |
| 276 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
276 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
| 277 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
277 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
| 278 |
$item->{transfertwhen} = $transfertwhen; |
278 |
$item->{transfertwhen} = $transfertwhen; |
|
Lines 292-300
foreach my $item (@items) {
Link Here
|
| 292 |
|
292 |
|
| 293 |
if ($item->{biblionumber} ne $biblionumber){ |
293 |
if ($item->{biblionumber} ne $biblionumber){ |
| 294 |
$item->{hostbiblionumber} = $item->{biblionumber}; |
294 |
$item->{hostbiblionumber} = $item->{biblionumber}; |
| 295 |
$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title}; |
295 |
$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title}; |
| 296 |
} |
296 |
} |
| 297 |
|
297 |
|
| 298 |
#count if item is used in analytical bibliorecords |
298 |
#count if item is used in analytical bibliorecords |
| 299 |
my $countanalytics= GetAnalyticsCount($item->{itemnumber}); |
299 |
my $countanalytics= GetAnalyticsCount($item->{itemnumber}); |
| 300 |
if ($countanalytics > 0){ |
300 |
if ($countanalytics > 0){ |
|
Lines 343-369
if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) {
Link Here
|
| 343 |
|
343 |
|
| 344 |
$template->param( norequests => $norequests ); |
344 |
$template->param( norequests => $norequests ); |
| 345 |
$template->param( |
345 |
$template->param( |
| 346 |
MARCNOTES => $marcnotesarray, |
346 |
MARCNOTES => $marcnotesarray, |
| 347 |
MARCSUBJCTS => $marcsubjctsarray, |
347 |
MARCSUBJCTS => $marcsubjctsarray, |
| 348 |
MARCAUTHORS => $marcauthorsarray, |
348 |
MARCAUTHORS => $marcauthorsarray, |
| 349 |
MARCSERIES => $marcseriesarray, |
349 |
MARCSERIES => $marcseriesarray, |
| 350 |
MARCURLS => $marcurlsarray, |
350 |
MARCURLS => $marcurlsarray, |
| 351 |
MARCISBNS => $marcisbnsarray, |
351 |
MARCISBNS => $marcisbnsarray, |
| 352 |
MARCHOSTS => $marchostsarray, |
352 |
MARCHOSTS => $marchostsarray, |
| 353 |
subtitle => $subtitle, |
353 |
subtitle => $subtitle, |
| 354 |
itemdata_ccode => $itemfields{ccode}, |
354 |
itemdata_ccode => $itemfields{ccode}, |
| 355 |
itemdata_enumchron => $itemfields{enumchron}, |
355 |
itemdata_enumchron => $itemfields{enumchron}, |
| 356 |
itemdata_uri => $itemfields{uri}, |
356 |
itemdata_uri => $itemfields{uri}, |
| 357 |
itemdata_copynumber => $itemfields{copynumber}, |
357 |
itemdata_copynumber => $itemfields{copynumber}, |
| 358 |
itemdata_stocknumber => $itemfields{stocknumber}, |
358 |
itemdata_stocknumber => $itemfields{stocknumber}, |
| 359 |
volinfo => $itemfields{enumchron}, |
359 |
volinfo => $itemfields{enumchron}, |
| 360 |
itemdata_itemnotes => $itemfields{itemnotes}, |
360 |
itemdata_itemnotes => $itemfields{itemnotes}, |
| 361 |
itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic}, |
361 |
itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic}, |
| 362 |
z3950_search_params => C4::Search::z3950_search_args($dat), |
362 |
z3950_search_params => C4::Search::z3950_search_args($dat), |
| 363 |
hostrecords => $hostrecords, |
363 |
hostrecords => $hostrecords, |
| 364 |
analytics_flag => $analytics_flag, |
364 |
analytics_flag => $analytics_flag, |
| 365 |
C4::Search::enabled_staff_search_views, |
365 |
C4::Search::enabled_staff_search_views, |
| 366 |
materials => $materials_flag, |
366 |
materials => $materials_flag, |
| 367 |
); |
367 |
); |
| 368 |
|
368 |
|
| 369 |
if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) { |
369 |
if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) { |