|
Lines 33-39
use C4::Reserves;
Link Here
|
| 33 |
use C4::Serials; |
33 |
use C4::Serials; |
| 34 |
use C4::XISBN qw(get_xisbns); |
34 |
use C4::XISBN qw(get_xisbns); |
| 35 |
use C4::External::Amazon; |
35 |
use C4::External::Amazon; |
| 36 |
use C4::Search; # enabled_staff_search_views |
36 |
use C4::Search; # enabled_staff_search_views |
| 37 |
use C4::Tags qw(get_tags); |
37 |
use C4::Tags qw(get_tags); |
| 38 |
use C4::XSLT; |
38 |
use C4::XSLT; |
| 39 |
use C4::Images; |
39 |
use C4::Images; |
|
Lines 65-78
my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user(
Link Here
|
| 65 |
|
65 |
|
| 66 |
# Determine if we should be offering any enhancement plugin buttons |
66 |
# Determine if we should be offering any enhancement plugin buttons |
| 67 |
if ( C4::Context->preference('UseKohaPlugins') && |
67 |
if ( C4::Context->preference('UseKohaPlugins') && |
| 68 |
C4::Context->config('enable_plugins') ) { |
68 |
C4::Context->config('enable_plugins') ) { |
| 69 |
# Only pass plugins that can offer a toolbar button |
69 |
# Only pass plugins that can offer a toolbar button |
| 70 |
my @plugins = Koha::Plugins->new()->GetPlugins({ |
70 |
my @plugins = Koha::Plugins->new()->GetPlugins({ |
| 71 |
method => 'intranet_catalog_biblio_enhancements_toolbar_button' |
71 |
method => 'intranet_catalog_biblio_enhancements_toolbar_button' |
| 72 |
}); |
72 |
}); |
| 73 |
$template->param( |
73 |
$template->param( |
| 74 |
plugins => \@plugins |
74 |
plugins => \@plugins |
| 75 |
); |
75 |
); |
| 76 |
} |
76 |
} |
| 77 |
|
77 |
|
| 78 |
my $biblionumber = $query->param('biblionumber'); |
78 |
my $biblionumber = $query->param('biblionumber'); |
|
Lines 160-167
my $hostrecords;
Link Here
|
| 160 |
# adding items linked via host biblios |
160 |
# adding items linked via host biblios |
| 161 |
my @hostitems = GetHostItemsInfo($record); |
161 |
my @hostitems = GetHostItemsInfo($record); |
| 162 |
if (@hostitems){ |
162 |
if (@hostitems){ |
| 163 |
$hostrecords =1; |
163 |
$hostrecords =1; |
| 164 |
push (@items,@hostitems); |
164 |
push (@items,@hostitems); |
| 165 |
} |
165 |
} |
| 166 |
|
166 |
|
| 167 |
my $dat = &GetBiblioData($biblionumber); |
167 |
my $dat = &GetBiblioData($biblionumber); |
|
Lines 173-179
my @subs;
Link Here
|
| 173 |
|
173 |
|
| 174 |
foreach my $subscription (@subscriptions) { |
174 |
foreach my $subscription (@subscriptions) { |
| 175 |
my %cell; |
175 |
my %cell; |
| 176 |
my $serials_to_display; |
176 |
my $serials_to_display; |
| 177 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
177 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
| 178 |
$cell{subscriptionnotes} = $subscription->{internalnotes}; |
178 |
$cell{subscriptionnotes} = $subscription->{internalnotes}; |
| 179 |
$cell{missinglist} = $subscription->{missinglist}; |
179 |
$cell{missinglist} = $subscription->{missinglist}; |
|
Lines 183-191
foreach my $subscription (@subscriptions) {
Link Here
|
| 183 |
$cell{callnumber} = $subscription->{callnumber}; |
183 |
$cell{callnumber} = $subscription->{callnumber}; |
| 184 |
$cell{closed} = $subscription->{closed}; |
184 |
$cell{closed} = $subscription->{closed}; |
| 185 |
#get the three latest serials. |
185 |
#get the three latest serials. |
| 186 |
$serials_to_display = $subscription->{staffdisplaycount}; |
186 |
$serials_to_display = $subscription->{staffdisplaycount}; |
| 187 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
187 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
| 188 |
$cell{staffdisplaycount} = $serials_to_display; |
188 |
$cell{staffdisplaycount} = $serials_to_display; |
| 189 |
$cell{latestserials} = |
189 |
$cell{latestserials} = |
| 190 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
190 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
| 191 |
push @subs, \%cell; |
191 |
push @subs, \%cell; |
|
Lines 288-294
foreach my $item (@items) {
Link Here
|
| 288 |
$item->{CheckedOutFor} = $checkout->patron; |
288 |
$item->{CheckedOutFor} = $checkout->patron; |
| 289 |
} |
289 |
} |
| 290 |
|
290 |
|
| 291 |
# Check the transit status |
291 |
# Check the transit status |
| 292 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
292 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
| 293 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
293 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
| 294 |
$item->{transfertwhen} = $transfertwhen; |
294 |
$item->{transfertwhen} = $transfertwhen; |
|
Lines 308-314
foreach my $item (@items) {
Link Here
|
| 308 |
|
308 |
|
| 309 |
if ($item->{biblionumber} ne $biblionumber){ |
309 |
if ($item->{biblionumber} ne $biblionumber){ |
| 310 |
$item->{hostbiblionumber} = $item->{biblionumber}; |
310 |
$item->{hostbiblionumber} = $item->{biblionumber}; |
| 311 |
$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title}; |
311 |
$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title}; |
| 312 |
} |
312 |
} |
| 313 |
|
313 |
|
| 314 |
|
314 |
|
|
Lines 363-388
if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) {
Link Here
|
| 363 |
|
363 |
|
| 364 |
$template->param( norequests => $norequests ); |
364 |
$template->param( norequests => $norequests ); |
| 365 |
$template->param( |
365 |
$template->param( |
| 366 |
MARCNOTES => $marcnotesarray, |
366 |
MARCNOTES => $marcnotesarray, |
| 367 |
MARCSUBJCTS => $marcsubjctsarray, |
367 |
MARCSUBJCTS => $marcsubjctsarray, |
| 368 |
MARCAUTHORS => $marcauthorsarray, |
368 |
MARCAUTHORS => $marcauthorsarray, |
| 369 |
MARCSERIES => $marcseriesarray, |
369 |
MARCSERIES => $marcseriesarray, |
| 370 |
MARCURLS => $marcurlsarray, |
370 |
MARCURLS => $marcurlsarray, |
| 371 |
MARCISBNS => $marcisbnsarray, |
371 |
MARCISBNS => $marcisbnsarray, |
| 372 |
MARCHOSTS => $marchostsarray, |
372 |
MARCHOSTS => $marchostsarray, |
| 373 |
subtitle => $subtitle, |
373 |
subtitle => $subtitle, |
| 374 |
itemdata_ccode => $itemfields{ccode}, |
374 |
itemdata_ccode => $itemfields{ccode}, |
| 375 |
itemdata_enumchron => $itemfields{enumchron}, |
375 |
itemdata_enumchron => $itemfields{enumchron}, |
| 376 |
itemdata_uri => $itemfields{uri}, |
376 |
itemdata_uri => $itemfields{uri}, |
| 377 |
itemdata_copynumber => $itemfields{copynumber}, |
377 |
itemdata_copynumber => $itemfields{copynumber}, |
| 378 |
itemdata_stocknumber => $itemfields{stocknumber}, |
378 |
itemdata_stocknumber => $itemfields{stocknumber}, |
| 379 |
volinfo => $itemfields{enumchron}, |
379 |
volinfo => $itemfields{enumchron}, |
| 380 |
itemdata_itemnotes => $itemfields{itemnotes}, |
380 |
itemdata_itemnotes => $itemfields{itemnotes}, |
| 381 |
itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic}, |
381 |
itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic}, |
| 382 |
z3950_search_params => C4::Search::z3950_search_args($dat), |
382 |
z3950_search_params => C4::Search::z3950_search_args($dat), |
| 383 |
hostrecords => $hostrecords, |
383 |
hostrecords => $hostrecords, |
| 384 |
analytics_flag => $analytics_flag, |
384 |
analytics_flag => $analytics_flag, |
| 385 |
C4::Search::enabled_staff_search_views, |
385 |
C4::Search::enabled_staff_search_views, |
| 386 |
materials => $materials_flag, |
386 |
materials => $materials_flag, |
| 387 |
); |
387 |
); |
| 388 |
|
388 |
|