View | Details | Raw Unified | Return to bug 20968
Collapse All | Expand All

(-)a/catalogue/detail.pl (-33 / +33 lines)
Lines 32-38 use C4::Reserves; Link Here
32
use C4::Serials;
32
use C4::Serials;
33
use C4::XISBN qw(get_xisbns);
33
use C4::XISBN qw(get_xisbns);
34
use C4::External::Amazon;
34
use C4::External::Amazon;
35
use C4::Search;		# enabled_staff_search_views
35
use C4::Search;        # enabled_staff_search_views
36
use C4::Tags qw(get_tags);
36
use C4::Tags qw(get_tags);
37
use C4::XSLT;
37
use C4::XSLT;
38
use C4::Images;
38
use C4::Images;
Lines 64-77 my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user( Link Here
64
64
65
# Determine if we should be offering any enhancement plugin buttons
65
# Determine if we should be offering any enhancement plugin buttons
66
if ( C4::Context->preference('UseKohaPlugins') &&
66
if ( C4::Context->preference('UseKohaPlugins') &&
67
	 C4::Context->config('enable_plugins') ) {
67
     C4::Context->config('enable_plugins') ) {
68
	# Only pass plugins that can offer a toolbar button
68
    # Only pass plugins that can offer a toolbar button
69
	my @plugins = Koha::Plugins->new()->GetPlugins({
69
    my @plugins = Koha::Plugins->new()->GetPlugins({
70
		method => 'intranet_catalog_biblio_enhancements_toolbar_button'
70
        method => 'intranet_catalog_biblio_enhancements_toolbar_button'
71
	});
71
    });
72
	$template->param(
72
    $template->param(
73
		plugins => \@plugins
73
        plugins => \@plugins
74
	);
74
    );
75
}
75
}
76
76
77
my $biblionumber = $query->param('biblionumber');
77
my $biblionumber = $query->param('biblionumber');
Lines 159-166 my $hostrecords; Link Here
159
# adding items linked via host biblios
159
# adding items linked via host biblios
160
my @hostitems = GetHostItemsInfo($record);
160
my @hostitems = GetHostItemsInfo($record);
161
if (@hostitems){
161
if (@hostitems){
162
	$hostrecords =1;
162
    $hostrecords =1;
163
	push (@items,@hostitems);
163
    push (@items,@hostitems);
164
}
164
}
165
165
166
my $dat = &GetBiblioData($biblionumber);
166
my $dat = &GetBiblioData($biblionumber);
Lines 172-178 my @subs; Link Here
172
172
173
foreach my $subscription (@subscriptions) {
173
foreach my $subscription (@subscriptions) {
174
    my %cell;
174
    my %cell;
175
	my $serials_to_display;
175
    my $serials_to_display;
176
    $cell{subscriptionid}    = $subscription->{subscriptionid};
176
    $cell{subscriptionid}    = $subscription->{subscriptionid};
177
    $cell{subscriptionnotes} = $subscription->{internalnotes};
177
    $cell{subscriptionnotes} = $subscription->{internalnotes};
178
    $cell{missinglist}       = $subscription->{missinglist};
178
    $cell{missinglist}       = $subscription->{missinglist};
Lines 182-190 foreach my $subscription (@subscriptions) { Link Here
182
    $cell{callnumber}        = $subscription->{callnumber};
182
    $cell{callnumber}        = $subscription->{callnumber};
183
    $cell{closed}            = $subscription->{closed};
183
    $cell{closed}            = $subscription->{closed};
184
    #get the three latest serials.
184
    #get the three latest serials.
185
	$serials_to_display = $subscription->{staffdisplaycount};
185
    $serials_to_display = $subscription->{staffdisplaycount};
186
	$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display;
186
    $serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display;
187
	$cell{staffdisplaycount} = $serials_to_display;
187
    $cell{staffdisplaycount} = $serials_to_display;
188
    $cell{latestserials} =
188
    $cell{latestserials} =
189
      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
189
      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
190
    push @subs, \%cell;
190
    push @subs, \%cell;
Lines 294-300 foreach my $item (@items) { Link Here
294
        $item->{CheckedOutFor} = $checkout->patron;
294
        $item->{CheckedOutFor} = $checkout->patron;
295
    }
295
    }
296
296
297
	# Check the transit status
297
    # Check the transit status
298
    my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber});
298
    my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber});
299
    if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) {
299
    if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) {
300
        $item->{transfertwhen} = $transfertwhen;
300
        $item->{transfertwhen} = $transfertwhen;
Lines 314-320 foreach my $item (@items) { Link Here
314
314
315
    if ($item->{biblionumber} ne $biblionumber){
315
    if ($item->{biblionumber} ne $biblionumber){
316
        $item->{hostbiblionumber} = $item->{biblionumber};
316
        $item->{hostbiblionumber} = $item->{biblionumber};
317
	$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
317
        $item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
318
    }
318
    }
319
	
319
	
320
320
Lines 369-394 if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) { Link Here
369
369
370
$template->param( norequests => $norequests );
370
$template->param( norequests => $norequests );
371
$template->param(
371
$template->param(
372
	MARCNOTES   => $marcnotesarray,
372
    MARCNOTES   => $marcnotesarray,
373
	MARCSUBJCTS => $marcsubjctsarray,
373
    MARCSUBJCTS => $marcsubjctsarray,
374
	MARCAUTHORS => $marcauthorsarray,
374
    MARCAUTHORS => $marcauthorsarray,
375
	MARCSERIES  => $marcseriesarray,
375
    MARCSERIES  => $marcseriesarray,
376
	MARCURLS => $marcurlsarray,
376
    MARCURLS => $marcurlsarray,
377
    MARCISBNS => $marcisbnsarray,
377
    MARCISBNS => $marcisbnsarray,
378
	MARCHOSTS => $marchostsarray,
378
    MARCHOSTS => $marchostsarray,
379
	subtitle    => $subtitle,
379
    subtitle    => $subtitle,
380
	itemdata_ccode      => $itemfields{ccode},
380
    itemdata_ccode      => $itemfields{ccode},
381
	itemdata_enumchron  => $itemfields{enumchron},
381
    itemdata_enumchron  => $itemfields{enumchron},
382
	itemdata_uri        => $itemfields{uri},
382
    itemdata_uri        => $itemfields{uri},
383
	itemdata_copynumber => $itemfields{copynumber},
383
    itemdata_copynumber => $itemfields{copynumber},
384
	itemdata_stocknumber => $itemfields{stocknumber},
384
    itemdata_stocknumber => $itemfields{stocknumber},
385
	volinfo				=> $itemfields{enumchron},
385
    volinfo                => $itemfields{enumchron},
386
        itemdata_itemnotes  => $itemfields{itemnotes},
386
        itemdata_itemnotes  => $itemfields{itemnotes},
387
        itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
387
        itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
388
	z3950_search_params	=> C4::Search::z3950_search_args($dat),
388
    z3950_search_params    => C4::Search::z3950_search_args($dat),
389
        hostrecords         => $hostrecords,
389
        hostrecords         => $hostrecords,
390
	analytics_flag	=> $analytics_flag,
390
    analytics_flag    => $analytics_flag,
391
	C4::Search::enabled_staff_search_views,
391
    C4::Search::enabled_staff_search_views,
392
        materials       => $materials_flag,
392
        materials       => $materials_flag,
393
);
393
);
394
394
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc (-2 / +1 lines)
Lines 140-146 CAN_user_serials_create_subscription ) %] Link Here
140
[% END %]
140
[% END %]
141
141
142
[% FOREACH p IN plugins %]
142
[% FOREACH p IN plugins %]
143
	[% p.intranet_catalog_biblio_enhancements_toolbar_button %]
143
    [% p.intranet_catalog_biblio_enhancements_toolbar_button %]
144
[% END %]
144
[% END %]
145
145
146
</div>
146
</div>
147
- 

Return to bug 20968