Attachment #76555 for bug #20968

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




use C4::Serials;
use C4::XISBN qw(get_xisbns);
use C4::External::Amazon;
use C4::Search;        # enabled_staff_search_views
use C4::Tags qw(get_tags);
use C4::XSLT;
use C4::Images;


# Determine if we should be offering any enhancement plugin buttons
if ( C4::Context->preference('UseKohaPlugins') &&
     C4::Context->config('enable_plugins') ) {
    # Only pass plugins that can offer a toolbar button
    my @plugins = Koha::Plugins->new()->GetPlugins({
        method => 'intranet_catalog_biblio_enhancements_toolbar_button'
    });
    $template->param(
        plugins => \@plugins
    );
}

my $biblionumber = $query->param('biblionumber');

# adding items linked via host biblios
my @hostitems = GetHostItemsInfo($record);
if (@hostitems){
    $hostrecords =1;
    push (@items,@hostitems);
}

my $dat = &GetBiblioData($biblionumber);


foreach my $subscription (@subscriptions) {
    my %cell;
    my $serials_to_display;
    $cell{subscriptionid}    = $subscription->{subscriptionid};
    $cell{subscriptionnotes} = $subscription->{internalnotes};
    $cell{missinglist}       = $subscription->{missinglist};

    $cell{callnumber}        = $subscription->{callnumber};
    $cell{closed}            = $subscription->{closed};
    #get the three latest serials.
    $serials_to_display = $subscription->{staffdisplaycount};
    $serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display;
    $cell{staffdisplaycount} = $serials_to_display;
    $cell{latestserials} =
      GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
    push @subs, \%cell;

        $item->{CheckedOutFor} = $checkout->patron;
    }

    # Check the transit status
    my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber});
    if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) {
        $item->{transfertwhen} = $transfertwhen;


    if ($item->{biblionumber} ne $biblionumber){
        $item->{hostbiblionumber} = $item->{biblionumber};
        $item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
    }
    
    #count if item is used in analytical bibliorecords
    my $countanalytics= GetAnalyticsCount($item->{itemnumber});
    if ($countanalytics > 0){


$template->param( norequests => $norequests );
$template->param(
    MARCNOTES   => $marcnotesarray,
    MARCSUBJCTS => $marcsubjctsarray,
    MARCAUTHORS => $marcauthorsarray,
    MARCSERIES  => $marcseriesarray,
    MARCURLS => $marcurlsarray,
    MARCISBNS => $marcisbnsarray,
    MARCHOSTS => $marchostsarray,
    subtitle    => $subtitle,
    itemdata_ccode      => $itemfields{ccode},
    itemdata_enumchron  => $itemfields{enumchron},
    itemdata_uri        => $itemfields{uri},
    itemdata_copynumber => $itemfields{copynumber},
    itemdata_stocknumber => $itemfields{stocknumber},
    volinfo                => $itemfields{enumchron},
        itemdata_itemnotes  => $itemfields{itemnotes},
        itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic},
    z3950_search_params    => C4::Search::z3950_search_args($dat),
        hostrecords         => $hostrecords,
    analytics_flag    => $analytics_flag,
    C4::Search::enabled_staff_search_views,
        materials       => $materials_flag,
);


Lines 140-146 CAN_user_serials_create_subscription ) %] Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/cat-toolbar.inc (-2 / +1 lines)
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

Lines 33-39 use C4::Reserves; Link Here

(-)a/catalogue/detail.pl (-34 / +34 lines)
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