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

(-)a/catalogue/detail.pl (-34 / +34 lines)
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-316 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
    #count if item is used in analytical bibliorecords
314
    #count if item is used in analytical bibliorecords
315
    my $countanalytics= GetAnalyticsCount($item->{itemnumber});
315
    my $countanalytics= GetAnalyticsCount($item->{itemnumber});
316
    if ($countanalytics > 0){
316
    if ($countanalytics > 0){
Lines 359-384 if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) { Link Here
359
359
360
$template->param( norequests => $norequests );
360
$template->param( norequests => $norequests );
361
$template->param(
361
$template->param(
362
	MARCNOTES   => $marcnotesarray,
362
    MARCNOTES   => $marcnotesarray,
363
	MARCSUBJCTS => $marcsubjctsarray,
363
    MARCSUBJCTS => $marcsubjctsarray,
364
	MARCAUTHORS => $marcauthorsarray,
364
    MARCAUTHORS => $marcauthorsarray,
365
	MARCSERIES  => $marcseriesarray,
365
    MARCSERIES  => $marcseriesarray,
366
	MARCURLS => $marcurlsarray,
366
    MARCURLS => $marcurlsarray,
367
    MARCISBNS => $marcisbnsarray,
367
    MARCISBNS => $marcisbnsarray,
368
	MARCHOSTS => $marchostsarray,
368
    MARCHOSTS => $marchostsarray,
369
	subtitle    => $subtitle,
369
    subtitle    => $subtitle,
370
	itemdata_ccode      => $itemfields{ccode},
370
    itemdata_ccode      => $itemfields{ccode},
371
	itemdata_enumchron  => $itemfields{enumchron},
371
    itemdata_enumchron  => $itemfields{enumchron},
372
	itemdata_uri        => $itemfields{uri},
372
    itemdata_uri        => $itemfields{uri},
373
	itemdata_copynumber => $itemfields{copynumber},
373
    itemdata_copynumber => $itemfields{copynumber},
374
	itemdata_stocknumber => $itemfields{stocknumber},
374
    itemdata_stocknumber => $itemfields{stocknumber},
375
	volinfo				=> $itemfields{enumchron},
375
    volinfo                => $itemfields{enumchron},
376
        itemdata_itemnotes  => $itemfields{itemnotes},
376
        itemdata_itemnotes  => $itemfields{itemnotes},
377
        itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
377
        itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
378
	z3950_search_params	=> C4::Search::z3950_search_args($dat),
378
    z3950_search_params    => C4::Search::z3950_search_args($dat),
379
        hostrecords         => $hostrecords,
379
        hostrecords         => $hostrecords,
380
	analytics_flag	=> $analytics_flag,
380
    analytics_flag    => $analytics_flag,
381
	C4::Search::enabled_staff_search_views,
381
    C4::Search::enabled_staff_search_views,
382
        materials       => $materials_flag,
382
        materials       => $materials_flag,
383
);
383
);
384
384
(-)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