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