Koha/opac/opac-detail.pl
Jonathan Druart 2331b8a295 Bug 22360: (bug 21205 follow-up) Restore OPACAcquisitionDetails behavior
Caused by
  commit 7d10549ae8
  Bug 21205: Replace C4::Items::GetOrderFromItemnumber calls

At this point $order is a Koha::Acquisition::Order object, not a hashref
anymore.

Test plan:
Create an order, receive items
Enable OPACAcquisitionDetails
At the detail page of the bibliographic record you should see
"X items are on order." at the bottom of the items list

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
2019-03-04 18:20:54 +00:00

1225 lines
46 KiB
Perl
Executable file

#!/usr/bin/perl
# Copyright 2000-2002 Katipo Communications
# Copyright 2010 BibLibre
# Copyright 2011 KohaAloha, NZ
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Acquisition qw( SearchOrders );
use C4::Auth qw(:DEFAULT get_session);
use C4::Koha;
use C4::Serials; #uses getsubscriptionfrom biblionumber
use C4::Output;
use C4::Biblio;
use C4::Items;
use C4::Circulation;
use C4::Tags qw(get_tags);
use C4::XISBN qw(get_xisbns);
use C4::External::Amazon;
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
use C4::Members;
use C4::XSLT;
use C4::ShelfBrowser;
use C4::Reserves;
use C4::Charset;
use C4::Letters;
use MARC::Record;
use MARC::Field;
use List::MoreUtils qw/any none/;
use C4::Images;
use Koha::DateUtils;
use C4::HTML5Media;
use C4::CourseReserves qw(GetItemCourseReservesInfo);
use Koha::Biblios;
use Koha::RecordProcessor;
use Koha::AuthorisedValues;
use Koha::IssuingRules;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Acquisition::Orders;
use Koha::Virtualshelves;
use Koha::Patrons;
use Koha::Ratings;
use Koha::Reviews;
BEGIN {
if (C4::Context->preference('BakerTaylorEnabled')) {
require C4::External::BakerTaylor;
import C4::External::BakerTaylor qw(&image_url &link_url);
}
}
my $query = CGI->new();
my $biblionumber = $query->param('biblionumber') || $query->param('bib') || 0;
$biblionumber = int($biblionumber);
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
{
template_name => "opac-detail.tt",
query => $query,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
}
);
my @all_items = GetItemsInfo($biblionumber);
my @hiddenitems;
my $patron = Koha::Patrons->find( $borrowernumber );
our $borcat= q{};
if ( C4::Context->preference('OpacHiddenItemsExceptions') ) {
$borcat = $patron ? $patron->categorycode : q{};
}
my $record = GetMarcBiblio({
biblionumber => $biblionumber,
opac => 1 });
if ( ! $record ) {
print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early
exit;
}
if ( scalar @all_items >= 1 ) {
push @hiddenitems,
GetHiddenItemnumbers( { items => \@all_items, borcat => $borcat } );
if (scalar @hiddenitems == scalar @all_items ) {
print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early
exit;
}
}
my $biblio = Koha::Biblios->find( $biblionumber );
my $framework = $biblio ? $biblio->frameworkcode : q{};
my $record_processor = Koha::RecordProcessor->new({
filters => 'ViewPolicy',
options => {
interface => 'opac',
frameworkcode => $framework
}
});
$record_processor->process($record);
# redirect if opacsuppression is enabled and biblio is suppressed
if (C4::Context->preference('OpacSuppression')) {
# FIXME hardcoded; the suppression flag ought to be materialized
# as a column on biblio or the like
my $opacsuppressionfield = '942';
my $opacsuppressionfieldvalue = $record->field($opacsuppressionfield);
# redirect to opac-blocked info page or 404?
my $opacsuppressionredirect;
if ( C4::Context->preference("OpacSuppressionRedirect") ) {
$opacsuppressionredirect = "/cgi-bin/koha/opac-blocked.pl";
} else {
$opacsuppressionredirect = "/cgi-bin/koha/errors/404.pl";
}
if ( $opacsuppressionfieldvalue &&
$opacsuppressionfieldvalue->subfield("n") &&
$opacsuppressionfieldvalue->subfield("n") == 1) {
# if OPAC suppression by IP address
if (C4::Context->preference('OpacSuppressionByIPRange')) {
my $IPAddress = $ENV{'REMOTE_ADDR'};
my $IPRange = C4::Context->preference('OpacSuppressionByIPRange');
if ($IPAddress !~ /^$IPRange/) {
print $query->redirect($opacsuppressionredirect);
exit;
}
} else {
print $query->redirect($opacsuppressionredirect);
exit;
}
}
}
$template->param( biblio => $biblio );
# get biblionumbers stored in the cart
my @cart_list;
if($query->cookie("bib_list")){
my $cart_list = $query->cookie("bib_list");
@cart_list = split(/\//, $cart_list);
if ( grep {$_ eq $biblionumber} @cart_list) {
$template->param( incart => 1 );
}
}
SetUTF8Flag($record);
my $marcflavour = C4::Context->preference("marcflavour");
my $ean = GetNormalizedEAN( $record, $marcflavour );
# XSLT processing of some stuff
my $xslfile = C4::Context->preference('OPACXSLTDetailsDisplay');
my $lang = $xslfile ? C4::Languages::getlanguage() : undef;
my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef;
if ( $xslfile ) {
$template->param(
XSLTBloc => XSLTParse4Display(
$biblionumber, $record, "OPACXSLTDetailsDisplay",
1, undef, $sysxml, $xslfile, $lang
)
);
}
my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");
# We look for the busc param to build the simple paging from the search
if ($OpacBrowseResults) {
my $session = get_session($query->cookie("CGISESSID"));
my %paging = (previous => {}, next => {});
if ($session->param('busc')) {
use C4::Search;
use URI::Escape;
# Rebuild the string to store on session
# param value is URI encoded and params separator is HTML encode (&amp;)
sub rebuildBuscParam
{
my $arrParamsBusc = shift;
my $pasarParams = '';
my $j = 0;
for (keys %$arrParamsBusc) {
if ($_ =~ /^(?:query|listBiblios|newlistBiblios|query_type|simple_query|total|offset|offsetSearch|next|previous|count|expand|scan)/) {
if (defined($arrParamsBusc->{$_})) {
$pasarParams .= '&amp;' if ($j);
$pasarParams .= $_ . '=' . Encode::decode('UTF-8', uri_escape_utf8( $arrParamsBusc->{$_} ));
$j++;
}
} else {
for my $value (@{$arrParamsBusc->{$_}}) {
next if !defined($value);
$pasarParams .= '&amp;' if ($j);
$pasarParams .= $_ . '=' . Encode::decode('UTF-8', uri_escape_utf8($value));
$j++;
}
}
}
return $pasarParams;
}#rebuildBuscParam
# Search given the current values from the busc param
sub searchAgain
{
my ($arrParamsBusc, $offset, $results_per_page) = @_;
my $expanded_facet = $arrParamsBusc->{'expand'};
my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };
my @servers;
@servers = @{$arrParamsBusc->{'server'}} if $arrParamsBusc->{'server'};
@servers = ("biblioserver") unless (@servers);
my ($default_sort_by, @sort_by);
$default_sort_by = C4::Context->preference('OPACdefaultSortField')."_".C4::Context->preference('OPACdefaultSortOrder') if (C4::Context->preference('OPACdefaultSortField') && C4::Context->preference('OPACdefaultSortOrder'));
@sort_by = @{$arrParamsBusc->{'sort_by'}} if $arrParamsBusc->{'sort_by'};
$sort_by[0] = $default_sort_by if !$sort_by[0] && defined($default_sort_by);
my ($error, $results_hashref, $facets);
eval {
($error, $results_hashref, $facets) = getRecords($arrParamsBusc->{'query'},$arrParamsBusc->{'simple_query'},\@sort_by,\@servers,$results_per_page,$offset,$expanded_facet,undef,$itemtypes,$arrParamsBusc->{'query_type'},$arrParamsBusc->{'scan'});
};
my $hits;
my @newresults;
my $search_context = {
'interface' => 'opac',
'category' => $borcat
};
for (my $i=0;$i<@servers;$i++) {
my $server = $servers[$i];
$hits = $results_hashref->{$server}->{"hits"};
@newresults = searchResults( $search_context, '', $hits, $results_per_page, $offset, $arrParamsBusc->{'scan'}, $results_hashref->{$server}->{"RECORDS"});
}
return \@newresults;
}#searchAgain
# Build the current list of biblionumbers in this search
sub buildListBiblios
{
my ($newresultsRef, $results_per_page) = @_;
my $listBiblios = '';
my $j = 0;
foreach (@$newresultsRef) {
my $bibnum = ($_->{biblionumber})?$_->{biblionumber}:0;
$listBiblios .= $bibnum . ',';
$j++;
last if ($j == $results_per_page);
}
chop $listBiblios if ($listBiblios =~ /,$/);
return $listBiblios;
}#buildListBiblios
my $busc = $session->param("busc");
my @arrBusc = split(/\&(?:amp;)?/, $busc);
my ($key, $value);
my %arrParamsBusc = ();
for (@arrBusc) {
($key, $value) = split(/=/, $_, 2);
if ($key =~ /^(?:query|listBiblios|newlistBiblios|query_type|simple_query|next|previous|total|offset|offsetSearch|count|expand|scan)/) {
$arrParamsBusc{$key} = uri_unescape($value);
} else {
unless (exists($arrParamsBusc{$key})) {
$arrParamsBusc{$key} = [];
}
push @{$arrParamsBusc{$key}}, uri_unescape($value);
}
}
my $searchAgain = 0;
my $count = C4::Context->preference('OPACnumSearchResults') || 20;
my $results_per_page = ($arrParamsBusc{'count'} && $arrParamsBusc{'count'} =~ /^[0-9]+?/)?$arrParamsBusc{'count'}:$count;
$arrParamsBusc{'count'} = $results_per_page;
my $offset = ($arrParamsBusc{'offset'} && $arrParamsBusc{'offset'} =~ /^[0-9]+?/)?$arrParamsBusc{'offset'}:0;
# The value OPACnumSearchResults has changed and the search has to be rebuild
if ($count != $results_per_page) {
if (exists($arrParamsBusc{'listBiblios'}) && $arrParamsBusc{'listBiblios'} =~ /^[0-9]+(?:,[0-9]+)*$/) {
my $indexBiblio = 0;
my @arrBibliosAux = split(',', $arrParamsBusc{'listBiblios'});
for (@arrBibliosAux) {
last if ($_ == $biblionumber);
$indexBiblio++;
}
$indexBiblio += $offset;
$offset = int($indexBiblio / $count) * $count;
$arrParamsBusc{'offset'} = $offset;
}
$arrParamsBusc{'count'} = $count;
$results_per_page = $count;
my $newresultsRef = searchAgain(\%arrParamsBusc, $offset, $results_per_page);
$arrParamsBusc{'listBiblios'} = buildListBiblios($newresultsRef, $results_per_page);
delete $arrParamsBusc{'previous'} if (exists($arrParamsBusc{'previous'}));
delete $arrParamsBusc{'next'} if (exists($arrParamsBusc{'next'}));
delete $arrParamsBusc{'offsetSearch'} if (exists($arrParamsBusc{'offsetSearch'}));
delete $arrParamsBusc{'newlistBiblios'} if (exists($arrParamsBusc{'newlistBiblios'}));
my $newbusc = rebuildBuscParam(\%arrParamsBusc);
$session->param("busc" => $newbusc);
@arrBusc = split(/\&(?:amp;)?/, $newbusc);
} else {
my $modifyListBiblios = 0;
# We come from a previous click
if (exists($arrParamsBusc{'previous'})) {
$modifyListBiblios = 1 if ($biblionumber == $arrParamsBusc{'previous'});
delete $arrParamsBusc{'previous'};
} elsif (exists($arrParamsBusc{'next'})) { # We come from a next click
$modifyListBiblios = 2 if ($biblionumber == $arrParamsBusc{'next'});
delete $arrParamsBusc{'next'};
}
if ($modifyListBiblios) {
if (exists($arrParamsBusc{'newlistBiblios'})) {
my $listBibliosAux = $arrParamsBusc{'listBiblios'};
$arrParamsBusc{'listBiblios'} = $arrParamsBusc{'newlistBiblios'};
my @arrAux = split(',', $listBibliosAux);
$arrParamsBusc{'newlistBiblios'} = $listBibliosAux;
if ($modifyListBiblios == 1) {
$arrParamsBusc{'next'} = $arrAux[0];
$paging{'next'}->{biblionumber} = $arrAux[0];
}else {
$arrParamsBusc{'previous'} = $arrAux[$#arrAux];
$paging{'previous'}->{biblionumber} = $arrAux[$#arrAux];
}
} else {
delete $arrParamsBusc{'listBiblios'};
}
my $offsetAux = $arrParamsBusc{'offset'};
$arrParamsBusc{'offset'} = $arrParamsBusc{'offsetSearch'};
$arrParamsBusc{'offsetSearch'} = $offsetAux;
$offset = $arrParamsBusc{'offset'};
my $newbusc = rebuildBuscParam(\%arrParamsBusc);
$session->param("busc" => $newbusc);
@arrBusc = split(/\&(?:amp;)?/, $newbusc);
}
}
my $buscParam = '';
my $j = 0;
# Rebuild the query for the button "back to results"
for (@arrBusc) {
unless ($_ =~ /^(?:query|listBiblios|newlistBiblios|query_type|simple_query|next|previous|total|count|offsetSearch)/) {
$buscParam .= '&amp;' unless ($j == 0);
$buscParam .= $_; # string already URI encoded
$j++;
}
}
$template->param('busc' => $buscParam);
my $offsetSearch;
my @arrBiblios;
# We are inside the list of biblios and we don't have to search
if (exists($arrParamsBusc{'listBiblios'}) && $arrParamsBusc{'listBiblios'} =~ /^[0-9]+(?:,[0-9]+)*$/) {
@arrBiblios = split(',', $arrParamsBusc{'listBiblios'});
if (@arrBiblios) {
# We are at the first item of the list
if ($arrBiblios[0] == $biblionumber) {
if (@arrBiblios > 1) {
for (my $j = 1; $j < @arrBiblios; $j++) {
next unless ($arrBiblios[$j]);
$paging{'next'}->{biblionumber} = $arrBiblios[$j];
last;
}
}
# search again if we are not at the first searching list
if ($offset && !$arrParamsBusc{'previous'}) {
$searchAgain = 1;
$offsetSearch = $offset - $results_per_page;
}
# we are at the last item of the list
} elsif ($arrBiblios[$#arrBiblios] == $biblionumber) {
for (my $j = $#arrBiblios - 1; $j >= 0; $j--) {
next unless ($arrBiblios[$j]);
$paging{'previous'}->{biblionumber} = $arrBiblios[$j];
last;
}
if (!$offset) {
# search again if we are at the first list and there is more results
$searchAgain = 1 if (!$arrParamsBusc{'next'} && $arrParamsBusc{'total'} != @arrBiblios);
} else {
# search again if we aren't at the first list and there is more results
$searchAgain = 1 if (!$arrParamsBusc{'next'} && $arrParamsBusc{'total'} > ($offset + @arrBiblios));
}
$offsetSearch = $offset + $results_per_page if ($searchAgain);
} else {
for (my $j = 1; $j < $#arrBiblios; $j++) {
if ($arrBiblios[$j] == $biblionumber) {
for (my $z = $j - 1; $z >= 0; $z--) {
next unless ($arrBiblios[$z]);
$paging{'previous'}->{biblionumber} = $arrBiblios[$z];
last;
}
for (my $z = $j + 1; $z < @arrBiblios; $z++) {
next unless ($arrBiblios[$z]);
$paging{'next'}->{biblionumber} = $arrBiblios[$z];
last;
}
last;
}
}
}
}
$offsetSearch = 0 if (defined($offsetSearch) && $offsetSearch < 0);
}
if ($searchAgain) {
my $newresultsRef = searchAgain(\%arrParamsBusc, $offsetSearch, $results_per_page);
my @newresults = @$newresultsRef;
# build the new listBiblios
my $listBiblios = buildListBiblios(\@newresults, $results_per_page);
unless (exists($arrParamsBusc{'listBiblios'})) {
$arrParamsBusc{'listBiblios'} = $listBiblios;
@arrBiblios = split(',', $arrParamsBusc{'listBiblios'});
} else {
$arrParamsBusc{'newlistBiblios'} = $listBiblios;
}
# From the new list we build again the next and previous result
if (@arrBiblios) {
if ($arrBiblios[0] == $biblionumber) {
for (my $j = $#newresults; $j >= 0; $j--) {
next unless ($newresults[$j]);
$paging{'previous'}->{biblionumber} = $newresults[$j]->{biblionumber};
$arrParamsBusc{'previous'} = $paging{'previous'}->{biblionumber};
$arrParamsBusc{'offsetSearch'} = $offsetSearch;
last;
}
} elsif ($arrBiblios[$#arrBiblios] == $biblionumber) {
for (my $j = 0; $j < @newresults; $j++) {
next unless ($newresults[$j]);
$paging{'next'}->{biblionumber} = $newresults[$j]->{biblionumber};
$arrParamsBusc{'next'} = $paging{'next'}->{biblionumber};
$arrParamsBusc{'offsetSearch'} = $offsetSearch;
last;
}
}
}
# build new busc param
my $newbusc = rebuildBuscParam(\%arrParamsBusc);
$session->param("busc" => $newbusc);
}
my ($numberBiblioPaging, $dataBiblioPaging);
# Previous biblio
$numberBiblioPaging = $paging{'previous'}->{biblionumber};
if ($numberBiblioPaging) {
$template->param( 'previousBiblionumber' => $numberBiblioPaging );
$dataBiblioPaging = Koha::Biblios->find( $numberBiblioPaging );
$template->param('previousTitle' => $dataBiblioPaging->title) if $dataBiblioPaging;
}
# Next biblio
$numberBiblioPaging = $paging{'next'}->{biblionumber};
if ($numberBiblioPaging) {
$template->param( 'nextBiblionumber' => $numberBiblioPaging );
$dataBiblioPaging = Koha::Biblios->find( $numberBiblioPaging );
$template->param('nextTitle' => $dataBiblioPaging->title) if $dataBiblioPaging;
}
# Partial list of biblio results
my @listResults;
for (my $j = 0; $j < @arrBiblios; $j++) {
next unless ($arrBiblios[$j]);
$dataBiblioPaging = Koha::Biblios->find( $arrBiblios[$j] ) if ($arrBiblios[$j] != $biblionumber);
push @listResults, {index => $j + 1 + $offset, biblionumber => $arrBiblios[$j], title => ($arrBiblios[$j] == $biblionumber)?'':$dataBiblioPaging->title, author => ($arrBiblios[$j] != $biblionumber && $dataBiblioPaging->author)?$dataBiblioPaging->author:'', url => ($arrBiblios[$j] == $biblionumber)?'':'opac-detail.pl?biblionumber=' . $arrBiblios[$j]};
}
$template->param('listResults' => \@listResults) if (@listResults);
$template->param('indexPag' => 1 + $offset, 'totalPag' => $arrParamsBusc{'total'}, 'indexPagEnd' => scalar(@arrBiblios) + $offset);
$template->param( 'offset' => $offset );
}
}
$template->param(
OPACShowCheckoutName => C4::Context->preference("OPACShowCheckoutName"),
);
if ( C4::Context->preference('EasyAnalyticalRecords') ) {
# adding items linked via host biblios
my $analyticfield = '773';
if ($marcflavour eq 'MARC21' || $marcflavour eq 'NORMARC'){
$analyticfield = '773';
} elsif ($marcflavour eq 'UNIMARC') {
$analyticfield = '461';
}
foreach my $hostfield ( $record->field($analyticfield)) {
my $hostbiblionumber = $hostfield->subfield("0");
my $linkeditemnumber = $hostfield->subfield("9");
my @hostitemInfos = GetItemsInfo($hostbiblionumber);
foreach my $hostitemInfo (@hostitemInfos){
if ($hostitemInfo->{itemnumber} eq $linkeditemnumber){
push(@all_items, $hostitemInfo);
}
}
}
}
my @items;
# Are there items to hide?
my $hideitems;
$hideitems = 1 if C4::Context->preference('hidelostitems') or scalar(@hiddenitems) > 0;
# Hide items
if ($hideitems) {
for my $itm (@all_items) {
if ( C4::Context->preference('hidelostitems') ) {
push @items, $itm unless $itm->{itemlost} or any { $itm->{'itemnumber'} eq $_ } @hiddenitems;
} else {
push @items, $itm unless any { $itm->{'itemnumber'} eq $_ } @hiddenitems;
}
}
} else {
# Or not
@items = @all_items;
}
my $branch = '';
if (C4::Context->userenv){
$branch = C4::Context->userenv->{branch};
}
if ( C4::Context->preference('HighlightOwnItemsOnOPAC') ) {
if (
( ( C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'PatronBranch' ) && $branch )
||
C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'OpacURLBranch'
) {
my $branchcode;
if ( C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'PatronBranch' ) {
$branchcode = $branch;
}
elsif ( C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'OpacURLBranch' ) {
$branchcode = $ENV{'BRANCHCODE'};
}
my @our_items;
my @other_items;
foreach my $item ( @items ) {
if ( $item->{branchcode} eq $branchcode ) {
$item->{'this_branch'} = 1;
push( @our_items, $item );
} else {
push( @other_items, $item );
}
}
@items = ( @our_items, @other_items );
}
}
my $dat = &GetBiblioData($biblionumber);
my $HideMARC = $record_processor->filters->[0]->should_hide_marc(
{
frameworkcode => $dat->{'frameworkcode'},
interface => 'opac',
} );
my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };
# imageurl:
my $itemtype = $dat->{'itemtype'};
if ( $itemtype ) {
$dat->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{$itemtype}->{'imageurl'} );
$dat->{'description'} = $itemtypes->{$itemtype}->{translated_description};
}
my $shelflocations =
{ map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => $dat->{frameworkcode}, kohafield => 'items.location' } ) };
my $collections =
{ map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => $dat->{frameworkcode}, kohafield => 'items.ccode' } ) };
my $copynumbers =
{ map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => $dat->{frameworkcode}, kohafield => 'items.copynumber' } ) };
#coping with subscriptions
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
my @subscriptions = SearchSubscriptions({ biblionumber => $biblionumber, orderby => 'title' });
my @subs;
$dat->{'serial'}=1 if $subscriptionsnumber;
foreach my $subscription (@subscriptions) {
my $serials_to_display;
my %cell;
$cell{subscriptionid} = $subscription->{subscriptionid};
$cell{subscriptionnotes} = $subscription->{notes};
$cell{missinglist} = $subscription->{missinglist};
$cell{opacnote} = $subscription->{opacnote};
$cell{histstartdate} = $subscription->{histstartdate};
$cell{histenddate} = $subscription->{histenddate};
$cell{branchcode} = $subscription->{branchcode};
$cell{callnumber} = $subscription->{callnumber};
$cell{location} = $subscription->{location};
$cell{closed} = $subscription->{closed};
$cell{letter} = $subscription->{letter};
$cell{biblionumber} = $subscription->{biblionumber};
#get the three latest serials.
$serials_to_display = $subscription->{opacdisplaycount};
$serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display;
$cell{opacdisplaycount} = $serials_to_display;
$cell{latestserials} =
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
if ( $borrowernumber ) {
my $subscription_object = Koha::Subscriptions->find( $subscription->{subscriptionid} );
my $subscriber = $subscription_object->subscribers->find( $borrowernumber );
$cell{hasalert} = 1 if $subscriber;
}
push @subs, \%cell;
}
$dat->{'count'} = scalar(@items);
my (%item_reserves, %priority);
my ($show_holds_count, $show_priority);
for ( C4::Context->preference("OPACShowHoldQueueDetails") ) {
m/holds/o and $show_holds_count = 1;
m/priority/ and $show_priority = 1;
}
my $has_hold;
if ( $show_holds_count || $show_priority) {
my $holds = $biblio->holds;
$template->param( holds_count => $holds->count );
while ( my $hold = $holds->next ) {
$item_reserves{ $hold->itemnumber }++ if $hold->itemnumber;
if ($show_priority && $hold->borrowernumber == $borrowernumber) {
$has_hold = 1;
$hold->itemnumber
? ($priority{ $hold->itemnumber } = $hold->priority)
: ($template->param( priority => $hold->priority ));
}
}
}
$template->param( show_priority => $has_hold ) ;
my $norequests = 1;
my %itemfields;
my (@itemloop, @otheritemloop);
my $currentbranch = C4::Context->userenv ? C4::Context->userenv->{branch} : undef;
if ($currentbranch and C4::Context->preference('OpacSeparateHoldings')) {
$template->param(SeparateHoldings => 1);
}
my $separatebranch = C4::Context->preference('OpacSeparateHoldingsBranch');
my $viewallitems = $query->param('viewallitems');
my $max_items_to_display = C4::Context->preference('OpacMaxItemsToDisplay') // 50;
# Get items on order
my ( @itemnumbers_on_order );
if ( C4::Context->preference('OPACAcquisitionDetails' ) ) {
my $orders = C4::Acquisition::SearchOrders({
biblionumber => $biblionumber,
ordered => 1,
});
my $total_quantity = 0;
for my $order ( @$orders ) {
my $order = Koha::Acquisition::Orders->find( $order->{ordernumber} );
my $basket = $order->basket;
if ( $basket->effective_create_items eq 'ordering' ) {
@itemnumbers_on_order = $order->items->get_column('itemnumber');
}
$total_quantity += $order->quantity;
}
$template->{VARS}->{acquisition_details} = {
total_quantity => $total_quantity,
};
}
my $allow_onshelf_holds;
if ( not $viewallitems and @items > $max_items_to_display ) {
$template->param(
too_many_items => 1,
items_count => scalar( @items ),
);
} else {
for my $itm (@items) {
my $item = Koha::Items->find( $itm->{itemnumber} );
$itm->{holds_count} = $item_reserves{ $itm->{itemnumber} };
$itm->{priority} = $priority{ $itm->{itemnumber} };
$norequests = 0
if $norequests
&& !$itm->{'withdrawn'}
&& !$itm->{'itemlost'}
&& ($itm->{'itemnotforloan'}<0 || not $itm->{'itemnotforloan'})
&& !$itemtypes->{$itm->{'itype'}}->{notforloan}
&& $itm->{'itemnumber'};
$allow_onshelf_holds = Koha::IssuingRules->get_onshelfholds_policy( { item => $item, patron => $patron } )
unless $allow_onshelf_holds;
# get collection code description, too
my $ccode = $itm->{'ccode'};
$itm->{'ccode'} = $collections->{$ccode} if defined($ccode) && $collections && exists( $collections->{$ccode} );
my $copynumber = $itm->{'copynumber'};
$itm->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumbers) && defined($copynumber) && exists( $copynumbers->{$copynumber} ) );
if ( defined $itm->{'location'} ) {
$itm->{'location_description'} = $shelflocations->{ $itm->{'location'} };
}
if (exists $itm->{itype} && defined($itm->{itype}) && exists $itemtypes->{ $itm->{itype} }) {
$itm->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} );
$itm->{'description'} = $itemtypes->{ $itm->{itype} }->{translated_description};
}
foreach (qw(ccode enumchron copynumber itemnotes location_description uri)) {
$itemfields{$_} = 1 if ($itm->{$_});
}
my $reserve_status = C4::Reserves::GetReserveStatus($itm->{itemnumber});
if( $reserve_status eq "Waiting"){ $itm->{'waiting'} = 1; }
if( $reserve_status eq "Reserved"){ $itm->{'onhold'} = 1; }
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber});
if ( defined( $transfertwhen ) && $transfertwhen ne '' ) {
$itm->{transfertwhen} = $transfertwhen;
$itm->{transfertfrom} = $transfertfrom;
$itm->{transfertto} = $transfertto;
}
if ( C4::Context->preference('OPACAcquisitionDetails') ) {
$itm->{on_order} = 1
if grep /^$itm->{itemnumber}$/, @itemnumbers_on_order;
}
my $itembranch = $itm->{$separatebranch};
if ($currentbranch and C4::Context->preference('OpacSeparateHoldings')) {
if ($itembranch and $itembranch eq $currentbranch) {
push @itemloop, $itm;
} else {
push @otheritemloop, $itm;
}
} else {
push @itemloop, $itm;
}
}
}
if( $allow_onshelf_holds || CountItemsIssued($biblionumber) || $biblio->has_items_waiting_or_intransit ) {
$template->param( ReservableItems => 1 );
}
# Display only one tab if one items list is empty
if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) {
$template->param(SeparateHoldings => 0);
if (scalar(@itemloop) == 0) {
@itemloop = @otheritemloop;
}
}
## get notes and subjects from MARC record
if (!C4::Context->preference("OPACXSLTDetailsDisplay") ) {
my $marcisbnsarray = GetMarcISBN ($record,$marcflavour);
my $marcauthorsarray = GetMarcAuthors ($record,$marcflavour);
my $marcsubjctsarray = GetMarcSubjects($record,$marcflavour);
my $marcseriesarray = GetMarcSeries ($record,$marcflavour);
my $marcurlsarray = GetMarcUrls ($record,$marcflavour);
my $marchostsarray = GetMarcHosts($record,$marcflavour);
$template->param(
MARCSUBJCTS => $marcsubjctsarray,
MARCAUTHORS => $marcauthorsarray,
MARCSERIES => $marcseriesarray,
MARCURLS => $marcurlsarray,
MARCISBNS => $marcisbnsarray,
MARCHOSTS => $marchostsarray,
);
}
my $marcnotesarray = GetMarcNotes ($record,$marcflavour);
my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($biblionumber));
if( C4::Context->preference('ArticleRequests') ) {
my $patron = $borrowernumber ? Koha::Patrons->find($borrowernumber) : undef;
my $itemtype = Koha::ItemTypes->find($biblio->itemtype);
my $artreqpossible = $patron
? $biblio->can_article_request( $patron )
: $itemtype
? $itemtype->may_article_request
: q{};
$template->param( artreqpossible => $artreqpossible );
}
$template->param(
MARCNOTES => $marcnotesarray,
norequests => $norequests,
RequestOnOpac => C4::Context->preference("RequestOnOpac"),
itemdata_ccode => $itemfields{ccode},
itemdata_enumchron => $itemfields{enumchron},
itemdata_uri => $itemfields{uri},
itemdata_copynumber => $itemfields{copynumber},
itemdata_itemnotes => $itemfields{itemnotes},
itemdata_location => $itemfields{location_description},
subtitle => $subtitle,
OpacStarRatings => C4::Context->preference("OpacStarRatings"),
);
if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) {
my $fieldspec = C4::Context->preference("AlternateHoldingsField");
my $subfields = substr $fieldspec, 3;
my $holdingsep = C4::Context->preference("AlternateHoldingsSeparator") || ' ';
my @alternateholdingsinfo = ();
my @holdingsfields = $record->field(substr $fieldspec, 0, 3);
for my $field (@holdingsfields) {
my %holding = ( holding => '' );
my $havesubfield = 0;
for my $subfield ($field->subfields()) {
if ((index $subfields, $$subfield[0]) >= 0) {
$holding{'holding'} .= $holdingsep if (length $holding{'holding'} > 0);
$holding{'holding'} .= $$subfield[1];
$havesubfield++;
}
}
if ($havesubfield) {
push(@alternateholdingsinfo, \%holding);
}
}
$template->param(
ALTERNATEHOLDINGS => \@alternateholdingsinfo,
);
}
# FIXME: The template uses this hash directly. Need to filter.
foreach ( keys %{$dat} ) {
next if ( $HideMARC->{$_} );
$template->param( "$_" => defined $dat->{$_} ? $dat->{$_} : '' );
}
# some useful variables for enhanced content;
# in each case, we're grabbing the first value we find in
# the record and normalizing it
my $upc = GetNormalizedUPC($record,$marcflavour);
my $oclc = GetNormalizedOCLCNumber($record,$marcflavour);
my $isbn = GetNormalizedISBN(undef,$record,$marcflavour);
my $content_identifier_exists;
if ( $isbn or $ean or $oclc or $upc ) {
$content_identifier_exists = 1;
}
$template->param(
normalized_upc => $upc,
normalized_ean => $ean,
normalized_oclc => $oclc,
normalized_isbn => $isbn,
content_identifier_exists => $content_identifier_exists,
);
# COinS format FIXME: for books Only
$template->param(
ocoins => GetCOinSBiblio($record),
);
my ( $loggedincommenter, $reviews );
if ( C4::Context->preference('reviewson') ) {
$reviews = Koha::Reviews->search(
{
biblionumber => $biblionumber,
-or => { approved => 1, borrowernumber => $borrowernumber }
},
{
order_by => { -desc => 'datereviewed' }
}
)->unblessed;
my $libravatar_enabled = 0;
if ( C4::Context->preference('ShowReviewer') and C4::Context->preference('ShowReviewerPhoto') ) {
eval {
require Libravatar::URL;
Libravatar::URL->import();
};
if ( !$@ ) {
$libravatar_enabled = 1;
}
}
for my $review (@$reviews) {
my $review_patron = Koha::Patrons->find( $review->{borrowernumber} ); # FIXME Should be Koha::Review->reviewer or similar
# setting some borrower info into this hash
if ( $review_patron ) {
$review->{patron} = $review_patron;
if ( $libravatar_enabled and $review_patron->email ) {
$review->{avatarurl} = libravatar_url( email => $review_patron->email, https => $ENV{HTTPS} );
}
if ( $review_patron->borrowernumber eq $borrowernumber ) {
$loggedincommenter = 1;
}
}
}
}
if ( C4::Context->preference("OPACISBD") ) {
$template->param( ISBD => 1 );
}
$template->param(
itemloop => \@itemloop,
otheritemloop => \@otheritemloop,
biblionumber => $biblionumber,
subscriptions => \@subs,
subscriptionsnumber => $subscriptionsnumber,
reviews => $reviews,
loggedincommenter => $loggedincommenter
);
# Lists
if (C4::Context->preference("virtualshelves") ) {
my $shelves = Koha::Virtualshelves->search(
{
biblionumber => $biblionumber,
category => 2,
},
{
join => 'virtualshelfcontents',
}
);
$template->param( shelves => $shelves );
}
# XISBN Stuff
if (C4::Context->preference("OPACFRBRizeEditions")==1) {
eval {
$template->param(
XISBNS => scalar get_xisbns($isbn)
);
};
if ($@) { warn "XISBN Failed $@"; }
}
# Serial Collection
my @sc_fields = $record->field(955);
my @lc_fields = $marcflavour eq 'UNIMARC'
? $record->field(930)
: $record->field(852);
my @serialcollections = ();
foreach my $sc_field (@sc_fields) {
my %row_data;
$row_data{text} = $sc_field->subfield('r');
$row_data{branch} = $sc_field->subfield('9');
foreach my $lc_field (@lc_fields) {
$row_data{itemcallnumber} = $marcflavour eq 'UNIMARC'
? $lc_field->subfield('a') # 930$a
: $lc_field->subfield('h') # 852$h
if ($sc_field->subfield('5') eq $lc_field->subfield('5'));
}
if ($row_data{text} && $row_data{branch}) {
push (@serialcollections, \%row_data);
}
}
if (scalar(@serialcollections) > 0) {
$template->param(
serialcollection => 1,
serialcollections => \@serialcollections);
}
# Local cover Images stuff
if (C4::Context->preference("OPACLocalCoverImages")){
$template->param(OPACLocalCoverImages => 1);
}
# HTML5 Media
if ( (C4::Context->preference("HTML5MediaEnabled") eq 'both') or (C4::Context->preference("HTML5MediaEnabled") eq 'opac') ) {
$template->param( C4::HTML5Media->gethtml5media($record));
}
my $syndetics_elements;
if ( C4::Context->preference("SyndeticsEnabled") ) {
$template->param("SyndeticsEnabled" => 1);
$template->param("SyndeticsClientCode" => C4::Context->preference("SyndeticsClientCode"));
eval {
$syndetics_elements = &get_syndetics_index($isbn,$upc,$oclc);
for my $element (values %$syndetics_elements) {
$template->param("Syndetics$element"."Exists" => 1 );
#warn "Exists: "."Syndetics$element"."Exists";
}
};
warn $@ if $@;
}
if ( C4::Context->preference("SyndeticsEnabled")
&& C4::Context->preference("SyndeticsSummary")
&& ( exists($syndetics_elements->{'SUMMARY'}) || exists($syndetics_elements->{'AVSUMMARY'}) ) ) {
eval {
my $syndetics_summary = &get_syndetics_summary($isbn,$upc,$oclc, $syndetics_elements);
$template->param( SYNDETICS_SUMMARY => $syndetics_summary );
};
warn $@ if $@;
}
if ( C4::Context->preference("SyndeticsEnabled")
&& C4::Context->preference("SyndeticsTOC")
&& exists($syndetics_elements->{'TOC'}) ) {
eval {
my $syndetics_toc = &get_syndetics_toc($isbn,$upc,$oclc);
$template->param( SYNDETICS_TOC => $syndetics_toc );
};
warn $@ if $@;
}
if ( C4::Context->preference("SyndeticsEnabled")
&& C4::Context->preference("SyndeticsExcerpt")
&& exists($syndetics_elements->{'DBCHAPTER'}) ) {
eval {
my $syndetics_excerpt = &get_syndetics_excerpt($isbn,$upc,$oclc);
$template->param( SYNDETICS_EXCERPT => $syndetics_excerpt );
};
warn $@ if $@;
}
if ( C4::Context->preference("SyndeticsEnabled")
&& C4::Context->preference("SyndeticsReviews")) {
eval {
my $syndetics_reviews = &get_syndetics_reviews($isbn,$upc,$oclc,$syndetics_elements);
$template->param( SYNDETICS_REVIEWS => $syndetics_reviews );
};
warn $@ if $@;
}
if ( C4::Context->preference("SyndeticsEnabled")
&& C4::Context->preference("SyndeticsAuthorNotes")
&& exists($syndetics_elements->{'ANOTES'}) ) {
eval {
my $syndetics_anotes = &get_syndetics_anotes($isbn,$upc,$oclc);
$template->param( SYNDETICS_ANOTES => $syndetics_anotes );
};
warn $@ if $@;
}
# LibraryThingForLibraries ID Code and Tabbed View Option
if( C4::Context->preference('LibraryThingForLibrariesEnabled') )
{
$template->param(LibraryThingForLibrariesID =>
C4::Context->preference('LibraryThingForLibrariesID') );
$template->param(LibraryThingForLibrariesTabbedView =>
C4::Context->preference('LibraryThingForLibrariesTabbedView') );
}
# Novelist Select
if( C4::Context->preference('NovelistSelectEnabled') )
{
$template->param(NovelistSelectProfile => C4::Context->preference('NovelistSelectProfile') );
$template->param(NovelistSelectPassword => C4::Context->preference('NovelistSelectPassword') );
$template->param(NovelistSelectView => C4::Context->preference('NovelistSelectView') );
}
# Babelthèque
if ( C4::Context->preference("Babeltheque") ) {
$template->param(
Babeltheque => 1,
Babeltheque_url_js => C4::Context->preference("Babeltheque_url_js"),
);
}
# Social Networks
if ( C4::Context->preference( "SocialNetworks" ) ) {
$template->param( current_url => C4::Context->preference('OPACBaseURL') . "/cgi-bin/koha/opac-detail.pl?biblionumber=$biblionumber" );
$template->param( SocialNetworks => 1 );
}
# Shelf Browser Stuff
if (C4::Context->preference("OPACShelfBrowser")) {
my $starting_itemnumber = $query->param('shelfbrowse_itemnumber');
if (defined($starting_itemnumber)) {
$template->param( OpenOPACShelfBrowser => 1) if $starting_itemnumber;
my $nearby = GetNearbyItems($starting_itemnumber);
$template->param(
starting_itemnumber => $starting_itemnumber,
starting_homebranch => $nearby->{starting_homebranch}->{description},
starting_location => $nearby->{starting_location}->{description},
starting_ccode => $nearby->{starting_ccode}->{description},
shelfbrowser_prev_item => $nearby->{prev_item},
shelfbrowser_next_item => $nearby->{next_item},
shelfbrowser_items => $nearby->{items},
);
# in which tab shelf browser should open ?
if (grep { $starting_itemnumber == $_->{itemnumber} } @itemloop) {
$template->param(shelfbrowser_tab => 'holdings');
} else {
$template->param(shelfbrowser_tab => 'otherholdings');
}
}
}
$template->param( AmazonTld => get_amazon_tld() ) if ( C4::Context->preference("OPACAmazonCoverImages"));
if (C4::Context->preference("BakerTaylorEnabled")) {
$template->param(
BakerTaylorEnabled => 1,
BakerTaylorImageURL => &image_url(),
BakerTaylorLinkURL => &link_url(),
BakerTaylorBookstoreURL => C4::Context->preference('BakerTaylorBookstoreURL'),
);
my ($bt_user, $bt_pass);
if ($isbn and
$bt_user = C4::Context->preference('BakerTaylorUsername') and
$bt_pass = C4::Context->preference('BakerTaylorPassword') )
{
$template->param(
BakerTaylorContentURL =>
sprintf("https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y",
$bt_user,$bt_pass,$isbn)
);
}
}
my $tag_quantity;
if (C4::Context->preference('TagsEnabled') and $tag_quantity = C4::Context->preference('TagsShowOnDetail')) {
$template->param(
TagsEnabled => 1,
TagsShowOnDetail => $tag_quantity,
TagsInputOnDetail => C4::Context->preference('TagsInputOnDetail')
);
$template->param(TagLoop => get_tags({biblionumber=>$biblionumber, approved=>1,
'sort'=>'-weight', limit=>$tag_quantity}));
}
if (C4::Context->preference("OPACURLOpenInNewWindow")) {
# These values are going to be read by Javascript, at least in the case
# of the google covers
$template->param(covernewwindow => 'true');
} else {
$template->param(covernewwindow => 'false');
}
$template->param(borrowernumber => $borrowernumber);
if ( C4::Context->preference('OpacStarRatings') !~ /disable/ ) {
my $ratings = Koha::Ratings->search({ biblionumber => $biblionumber });
my $my_rating = $borrowernumber ? $ratings->search({ borrowernumber => $borrowernumber })->next : undef;
$template->param(
ratings => $ratings,
my_rating => $my_rating,
);
}
#Search for title in links
my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour);
my $marcissns = GetMarcISSN ( $record, $marcflavour );
my $issn = $marcissns->[0] || '';
if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){
$dat->{title} =~ s/\/+$//; # remove trailing slash
$dat->{title} =~ s/\s+$//; # remove trailing space
$search_for_title = parametrized_url(
$search_for_title,
{
TITLE => $dat->{title},
AUTHOR => $dat->{author},
ISBN => $isbn,
ISSN => $issn,
CONTROLNUMBER => $marccontrolnumber,
BIBLIONUMBER => $biblionumber,
}
);
$template->param('OPACSearchForTitleIn' => $search_for_title);
}
#IDREF
if ( C4::Context->preference("IDREF") ) {
# If the record comes from the SUDOC
if ( $record->field('009') ) {
my $unimarc3 = $record->field("009")->data;
if ( $unimarc3 =~ /^\d+$/ ) {
$template->param(
IDREF => 1,
);
}
}
}
# We try to select the best default tab to show, according to what
# the user wants, and what's available for display
my $opac_serial_default = C4::Context->preference('opacSerialDefaultTab');
my $defaulttab =
$viewallitems
? 'holdings' :
$opac_serial_default eq 'subscriptions' && $subscriptionsnumber
? 'subscriptions' :
$opac_serial_default eq 'serialcollection' && @serialcollections > 0
? 'serialcollection' :
$opac_serial_default eq 'holdings' && scalar (@itemloop) > 0
? 'holdings' :
scalar (@itemloop) == 0
? 'media' :
$subscriptionsnumber
? 'subscriptions' :
@serialcollections > 0
? 'serialcollection' : 'subscriptions';
$template->param('defaulttab' => $defaulttab);
if (C4::Context->preference('OPACLocalCoverImages') == 1) {
my @images = ListImagesForBiblio($biblionumber);
$template->{VARS}->{localimages} = \@images;
}
$template->{VARS}->{IDreamBooksReviews} = C4::Context->preference('IDreamBooksReviews');
$template->{VARS}->{IDreamBooksReadometer} = C4::Context->preference('IDreamBooksReadometer');
$template->{VARS}->{IDreamBooksResults} = C4::Context->preference('IDreamBooksResults');
$template->{VARS}->{OPACPopupAuthorsSearch} = C4::Context->preference('OPACPopupAuthorsSearch');
if (C4::Context->preference('OpacHighlightedWords')) {
$template->{VARS}->{query_desc} = $query->param('query_desc');
}
$template->{VARS}->{'trackclicks'} = C4::Context->preference('TrackClicks');
if ( C4::Context->preference('UseCourseReserves') ) {
foreach my $i ( @items ) {
$i->{'course_reserves'} = GetItemCourseReservesInfo( itemnumber => $i->{'itemnumber'} );
}
}
$template->param(
'OpacLocationBranchToDisplay' => C4::Context->preference('OpacLocationBranchToDisplay'),
);
output_html_with_http_headers $query, $cookie, $template->output;