Attachment #80619 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};
    }
	



$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 32-38 use C4::Reserves; Link Here

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