X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=opac%2Fopac-detail.pl;h=bab4ff6983be155338ffa8138034d56df5db1043;hb=af6fa247fd2c1340a9becb81794674b3e7ee9da7;hp=0301a5a8960cf790598a0ea9e06bcd6d18d30e8c;hpb=16f1fffdd1f5d1c97db0bf664f83496864b7e24d;p=koha.git diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index 0301a5a896..bab4ff6983 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -2,6 +2,7 @@ # Copyright 2000-2002 Katipo Communications # Copyright 2010 BibLibre +# Copyright 2011 KohaAloha, NZ # # This file is part of Koha. # @@ -23,7 +24,7 @@ use strict; use warnings; use CGI; -use C4::Auth; +use C4::Auth qw(:DEFAULT get_session); use C4::Branch; use C4::Koha; use C4::Serials; #uses getsubscriptionfrom biblionumber @@ -32,19 +33,23 @@ use C4::Biblio; use C4::Items; use C4::Circulation; use C4::Tags qw(get_tags); -use C4::Dates qw/format_date/; use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn); 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::Review; +use C4::Ratings; use C4::Members; use C4::VirtualShelves; use C4::XSLT; use C4::ShelfBrowser; +use C4::Reserves; use C4::Charset; use MARC::Record; use MARC::Field; use List::MoreUtils qw/any none/; +use C4::Images; +use Koha::DateUtils; +use C4::HTML5Media; BEGIN { if (C4::Context->preference('BakerTaylorEnabled')) { @@ -65,30 +70,336 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( ); my $biblionumber = $query->param('biblionumber') || $query->param('bib'); - -$template->param( 'AllowOnShelfHolds' => C4::Context->preference('AllowOnShelfHolds') ); -$template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) ); +$biblionumber = int($biblionumber); my $record = GetMarcBiblio($biblionumber); if ( ! $record ) { - print $query->redirect("/cgi-bin/koha/errors/404.pl"); + print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early exit; } $template->param( biblionumber => $biblionumber ); +# 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 if (C4::Context->preference("OPACXSLTDetailsDisplay") ) { - $template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, 'Detail', 'opac') ); + $template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "OPACXSLTDetailsDisplay" ) ); } -$template->param('OPACShowCheckoutName' => C4::Context->preference("OPACShowCheckoutName") ); +my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults"); +$template->{VARS}->{'OpacBrowseResults'} = $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; + + # Rebuild the string to store on session + 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 .= '&' if ($j); + $pasarParams .= $_ . '=' . $arrParamsBusc->{$_}; + $j++; + } + } else { + for my $value (@{$arrParamsBusc->{$_}}) { + $pasarParams .= '&' if ($j); + $pasarParams .= $_ . '=' . $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 $branches = GetBranches(); + 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,$branches,$arrParamsBusc->{'query_type'},$arrParamsBusc->{'scan'}); + }; + my $hits; + my @newresults; + for (my $i=0;$i<@servers;$i++) { + my $server = $servers[$i]; + $hits = $results_hashref->{$server}->{"hits"}; + @newresults = searchResults('opac', '', $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} = $value; + } else { + unless (exists($arrParamsBusc{$key})) { + $arrParamsBusc{$key} = []; + } + push @{$arrParamsBusc{$key}}, $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 .= '&' unless ($j == 0); + $buscParam .= $_; + $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 ($previous, $next, $dataBiblioPaging); + # Previous biblio + if ($paging{'previous'}->{biblionumber}) { + $previous = 'opac-detail.pl?biblionumber=' . $paging{'previous'}->{biblionumber}; + $dataBiblioPaging = GetBiblioData($paging{'previous'}->{biblionumber}); + $template->param('previousTitle' => $dataBiblioPaging->{'title'}) if ($dataBiblioPaging); + } + # Next biblio + if ($paging{'next'}->{biblionumber}) { + $next = 'opac-detail.pl?biblionumber=' . $paging{'next'}->{biblionumber}; + $dataBiblioPaging = GetBiblioData($paging{'next'}->{biblionumber}); + $template->param('nextTitle' => $dataBiblioPaging->{'title'}) if ($dataBiblioPaging); + } + $template->param('previous' => $previous, 'next' => $next); + # Partial list of biblio results + my @listResults; + for (my $j = 0; $j < @arrBiblios; $j++) { + next unless ($arrBiblios[$j]); + $dataBiblioPaging = GetBiblioData($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( 'AllowOnShelfHolds' => C4::Context->preference('AllowOnShelfHolds') ); +$template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) ); + + + +$template->param('OPACShowCheckoutName' => C4::Context->preference("OPACShowCheckoutName") ); +$template->param('OPACShowBarcode' => C4::Context->preference("OPACShowBarcode") ); # change back when ive fixed request.pl my @all_items = GetItemsInfo( $biblionumber ); # adding items linked via host biblios -my $marcflavour = C4::Context->preference("marcflavour"); my $analyticfield = '773'; if ($marcflavour eq 'MARC21' || $marcflavour eq 'NORMARC'){ @@ -113,7 +424,8 @@ my @items; my @hiddenitems = GetHiddenItemnumbers(@all_items); # Are there items to hide? -my $hideitems = 1 if C4::Context->preference('hidelostitems') or scalar(@hiddenitems) > 0; +my $hideitems; +$hideitems = 1 if C4::Context->preference('hidelostitems') or scalar(@hiddenitems) > 0; # Hide items if ($hideitems) { @@ -129,6 +441,38 @@ if ($hideitems) { @items = @all_items; } +my $branches = GetBranches(); +my $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 $branchname; + if ( C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'PatronBranch' ) { + $branchname = $branches->{$branch}->{'branchname'}; + } + elsif ( C4::Context->preference('HighlightOwnItemsOnOPACWhich') eq 'OpacURLBranch' ) { + $branchname = $branches->{ $ENV{'BRANCHCODE'} }->{'branchname'}; + } + + my @our_items; + my @other_items; + + foreach my $item ( @items ) { + if ( $item->{'branchname'} eq $branchname ) { + $item->{'this_branch'} = 1; + push( @our_items, $item ); + } else { + push( @other_items, $item ); + } + } + + @items = ( @our_items, @other_items ); + } +} + my $dat = &GetBiblioData($biblionumber); my $itemtypes = GetItemTypes(); @@ -140,10 +484,11 @@ if ( $itemtype ) { } my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'}, 'opac'); my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'}, 'opac'); +my $copynumbers = GetKohaAuthorisedValues('items.copynumber',$dat->{'frameworkcode'}, 'opac'); #coping with subscriptions my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); -my @subscriptions = GetSubscriptions( undef, undef, $biblionumber ); +my @subscriptions = GetSubscriptions($dat->{'title'}, $dat->{'issn'}, $ean, $biblionumber ); my @subs; $dat->{'serial'}=1 if $subscriptionsnumber; @@ -154,11 +499,13 @@ foreach my $subscription (@subscriptions) { $cell{subscriptionnotes} = $subscription->{notes}; $cell{missinglist} = $subscription->{missinglist}; $cell{opacnote} = $subscription->{opacnote}; - $cell{histstartdate} = format_date($subscription->{histstartdate}); - $cell{histenddate} = format_date($subscription->{histenddate}); + $cell{histstartdate} = $subscription->{histstartdate}; + $cell{histenddate} = $subscription->{histenddate}; $cell{branchcode} = $subscription->{branchcode}; $cell{branchname} = GetBranchName($subscription->{branchcode}); $cell{hasalert} = $subscription->{hasalert}; + $cell{callnumber} = $subscription->{callnumber}; + $cell{closed} = $subscription->{closed}; #get the three latest serials. $serials_to_display = $subscription->{opacdisplaycount}; $serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display; @@ -170,20 +517,42 @@ foreach my $subscription (@subscriptions) { $dat->{'count'} = scalar(@items); -# If there is a lot of items, and the user has not decided -# to view them all yet, we first warn him -# TODO: The limit of 50 could be a syspref -my $viewallitems = $query->param('viewallitems'); -if ($dat->{'count'} >= 50 && !$viewallitems) { - $template->param('lotsofitems' => 1); -} my $biblio_authorised_value_images = C4::Items::get_authorised_value_images( C4::Biblio::get_biblio_authorised_values( $biblionumber, $record ) ); +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 ($reserve_count,$reserves) = GetReservesFromBiblionumber($biblionumber); + $template->param( holds_count => $reserve_count ) if $show_holds_count; + foreach (@$reserves) { + $item_reserves{ $_->{itemnumber} }++ if $_->{itemnumber}; + if ($show_priority && $_->{borrowernumber} == $borrowernumber) { + $has_hold = 1; + $_->{itemnumber} + ? ($priority{ $_->{itemnumber} } = $_->{priority}) + : ($template->param( priority => $_->{priority} )); + } + } +} +$template->param( show_priority => $has_hold ) ; + my $norequests = 1; -my $branches = GetBranches(); 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'); for my $itm (@items) { + $itm->{holds_count} = $item_reserves{ $itm->{itemnumber} }; + $itm->{priority} = $priority{ $itm->{itemnumber} }; $norequests = 0 if ( (not $itm->{'wthdrawn'} ) && (not $itm->{'itemlost'} ) @@ -191,17 +560,11 @@ for my $itm (@items) { && (not $itemtypes->{$itm->{'itype'}}->{notforloan} ) && ($itm->{'itemnumber'} ) ); - if ( defined $itm->{'publictype'} ) { - # I can't actually find any case in which this is defined. --amoore 2008-12-09 - $itm->{ $itm->{'publictype'} } = 1; - } - $itm->{datedue} = format_date($itm->{datedue}); - $itm->{datelastseen} = format_date($itm->{datelastseen}); - # get collection code description, too - if ( my $ccode = $itm->{'ccode'} ) { - $itm->{'ccode'} = $collections->{$ccode} if ( defined($collections) && exists( $collections->{$ccode} ) ); - } + my $ccode = $itm->{'ccode'}; + $itm->{'ccode'} = $collections->{$ccode} if ( defined($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'} }; } @@ -222,18 +585,42 @@ for my $itm (@items) { $itm->{'lostimageurl'} = $lostimageinfo->{ 'imageurl' }; $itm->{'lostimagelabel'} = $lostimageinfo->{ 'label' }; } - - if( $itm->{'count_reserves'}){ - if( $itm->{'count_reserves'} eq "Waiting"){ $itm->{'waiting'} = 1; } - if( $itm->{'count_reserves'} eq "Reserved"){ $itm->{'onhold'} = 1; } - } + 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} = format_date($transfertwhen); + $itm->{transfertwhen} = $transfertwhen; $itm->{transfertfrom} = $branches->{$transfertfrom}{branchname}; $itm->{transfertto} = $branches->{$transfertto}{branchname}; } + 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; + } +} + +# 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; + } +} + +# If there is a lot of items, and the user has not decided +# to view them all yet, we first warn him +# TODO: The limit of 50 could be a syspref +my $viewallitems = $query->param('viewallitems'); +if (scalar(@itemloop) >= 50 && !$viewallitems) { + $template->param('lotsofitems' => 1); } ## get notes and subjects from MARC record @@ -253,7 +640,8 @@ my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($bib MARCAUTHORS => $marcauthorsarray, MARCSERIES => $marcseriesarray, MARCURLS => $marcurlsarray, - MARCHOSTS => $marchostsarray, + MARCISBNS => $marcisbnsarray, + MARCHOSTS => $marchostsarray, norequests => $norequests, RequestOnOpac => C4::Context->preference("RequestOnOpac"), itemdata_ccode => $itemfields{ccode}, @@ -263,6 +651,7 @@ my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($bib itemdata_itemnotes => $itemfields{itemnotes}, authorised_value_images => $biblio_authorised_value_images, subtitle => $subtitle, + OpacStarRatings => C4::Context->preference("OpacStarRatings"), ); if (C4::Context->preference("AlternateHoldingsField") && scalar @items == 0) { @@ -300,7 +689,6 @@ foreach ( keys %{$dat} ) { # in each case, we're grabbing the first value we find in # the record and normalizing it my $upc = GetNormalizedUPC($record,$marcflavour); -my $ean = GetNormalizedEAN($record,$marcflavour); my $oclc = GetNormalizedOCLCNumber($record,$marcflavour); my $isbn = GetNormalizedISBN(undef,$record,$marcflavour); my $content_identifier_exists; @@ -317,17 +705,26 @@ $template->param( # COinS format FIXME: for books Only $template->param( - ocoins => GetCOinSBiblio($biblionumber), + ocoins => GetCOinSBiblio($record), ); my $libravatar_enabled = 0; -eval 'use Libravatar::URL'; -if (!$@ and C4::Context->preference('ShowReviewer') and C4::Context->preference('ShowReviewerPhoto')) { - $libravatar_enabled = 1; +if ( C4::Context->preference('ShowReviewer') and C4::Context->preference('ShowReviewerPhoto')) { + eval { + require Libravatar::URL; + Libravatar::URL->import(); + }; + if (!$@ ) { + $libravatar_enabled = 1; + } } my $reviews = getreviews( $biblionumber, 1 ); my $loggedincommenter; + + + + foreach ( @$reviews ) { my $borrowerData = GetMember('borrowernumber' => $_->{borrowernumber}); # setting some borrower info into this hash @@ -339,7 +736,7 @@ foreach ( @$reviews ) { } $_->{userid} = $borrowerData->{'userid'}; $_->{cardnumber} = $borrowerData->{'cardnumber'}; - $_->{datereviewed} = format_date($_->{datereviewed}); + if ($borrowerData->{'borrowernumber'} eq $borrowernumber) { $_->{your_comment} = 1; $loggedincommenter = 1; @@ -352,7 +749,8 @@ if(C4::Context->preference("ISBD")) { } $template->param( - ITEM_RESULTS => \@items, + itemloop => \@itemloop, + otheritemloop => \@otheritemloop, subscriptionsnumber => $subscriptionsnumber, biblionumber => $biblionumber, subscriptions => \@subs, @@ -380,6 +778,9 @@ if (C4::Context->preference("OPACFRBRizeEditions")==1) { # 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) { @@ -387,9 +788,15 @@ foreach my $sc_field (@sc_fields) { $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); + push (@serialcollections, \%row_data); } } @@ -399,47 +806,14 @@ if (scalar(@serialcollections) > 0) { serialcollections => \@serialcollections); } -# Amazon.com Stuff -if ( C4::Context->preference("OPACAmazonEnabled") ) { - $template->param( AmazonTld => get_amazon_tld() ); - my $amazon_reviews = C4::Context->preference("OPACAmazonReviews"); - my $amazon_similars = C4::Context->preference("OPACAmazonSimilarItems"); - my @services; - if ( $amazon_reviews ) { - push( @services, 'EditorialReview', 'Reviews' ); - } - if ( $amazon_similars ) { - push( @services, 'Similarities' ); - } - my $amazon_details = &get_amazon_details( $isbn, $record, $marcflavour, \@services ); - my $similar_products_exist; - if ( $amazon_reviews ) { - my $item = $amazon_details->{Items}->{Item}->[0]; - my $customer_reviews = \@{ $item->{CustomerReviews}->{Review} }; - for my $one_review ( @$customer_reviews ) { - $one_review->{Date} = format_date($one_review->{Date}); - } - my $editorial_reviews = \@{ $item->{EditorialReviews}->{EditorialReview} }; - my $average_rating = $item->{CustomerReviews}->{AverageRating} || 0; - $template->param( amazon_average_rating => $average_rating * 20); - $template->param( AMAZON_CUSTOMER_REVIEWS => $customer_reviews ); - $template->param( AMAZON_EDITORIAL_REVIEWS => $editorial_reviews ); - } - if ( $amazon_similars ) { - my $item = $amazon_details->{Items}->{Item}->[0]; - my @similar_products; - for my $similar_product (@{ $item->{SimilarProducts}->{SimilarProduct} }) { - # do we have any of these isbns in our collection? - my $similar_biblionumbers = get_biblionumber_from_isbn($similar_product->{ASIN}); - # verify that there is at least one similar item - if (scalar(@$similar_biblionumbers)){ - $similar_products_exist++ if ($similar_biblionumbers && $similar_biblionumbers->[0]); - push @similar_products, +{ similar_biblionumbers => $similar_biblionumbers, title => $similar_product->{Title}, ASIN => $similar_product->{ASIN} }; - } - } - $template->param( OPACAmazonSimilarItems => $similar_products_exist ); - $template->param( AMAZON_SIMILAR_PRODUCTS => \@similar_products ); - } +# 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; @@ -529,13 +903,19 @@ $template->param(NovelistSelectView => C4::Context->preference('NovelistSelectVi 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")) { - # pick the first itemnumber unless one was selected by the user - my $starting_itemnumber = $query->param('shelfbrowse_itemnumber'); # || $items[0]->{itemnumber}; + my $starting_itemnumber = $query->param('shelfbrowse_itemnumber'); if (defined($starting_itemnumber)) { $template->param( OpenOPACShelfBrowser => 1) if $starting_itemnumber; my $nearby = GetNearbyItems($starting_itemnumber,3); @@ -552,9 +932,18 @@ if (C4::Context->preference("OPACShelfBrowser")) { PREVIOUS_SHELF_BROWSE => $nearby->{prev}, NEXT_SHELF_BROWSE => $nearby->{next}, ); + + # 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, @@ -594,18 +983,42 @@ if (C4::Context->preference("OPACURLOpenInNewWindow")) { $template->param(covernewwindow => 'false'); } +#Export options +my $OpacExportOptions=C4::Context->preference("OpacExportOptions"); +my @export_options = split(/\|/,$OpacExportOptions); +$template->{VARS}->{'export_options'} = \@export_options; + +if ( C4::Context->preference('OpacStarRatings') !~ /disable/ ) { + my $rating = GetRating( $biblionumber, $borrowernumber ); + $template->param( + rating_value => $rating->{'rating_value'}, + rating_total => $rating->{'rating_total'}, + rating_avg => $rating->{'rating_avg'}, + rating_avg_int => $rating->{'rating_avg_int'}, + borrowernumber => $borrowernumber + ); +} + #Search for title in links -my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour); +my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour); +my $marcissns = GetMarcISSN ( $record, $marcflavour ); +my $issn = $marcissns->[0] || ''; if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){ - $dat->{author} ? $search_for_title =~ s/{AUTHOR}/$dat->{author}/g : $search_for_title =~ s/{AUTHOR}//g; $dat->{title} =~ s/\/+$//; # remove trailing slash $dat->{title} =~ s/\s+$//; # remove trailing space - $dat->{title} ? $search_for_title =~ s/{TITLE}/$dat->{title}/g : $search_for_title =~ s/{TITLE}//g; - $isbn ? $search_for_title =~ s/{ISBN}/$isbn/g : $search_for_title =~ s/{ISBN}//g; - $marccontrolnumber ? $search_for_title =~ s/{CONTROLNUMBER}/$marccontrolnumber/g : $search_for_title =~ s/{CONTROLNUMBER}//g; - $search_for_title =~ s/{BIBLIONUMBER}/$biblionumber/g; - $template->param('OPACSearchForTitleIn' => $search_for_title); + $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); } # We try to select the best default tab to show, according to what @@ -616,12 +1029,27 @@ my $defaulttab = ? 'subscriptions' : $opac_serial_default eq 'serialcollection' && @serialcollections > 0 ? 'serialcollection' : - $opac_serial_default eq 'holdings' && $dat->{'count'} > 0 + $opac_serial_default eq 'holdings' && scalar (@itemloop) > 0 ? 'holdings' : $subscriptionsnumber ? 'subscriptions' : @serialcollections > 0 - ? 'serialcollection' : 'subscription'; + ? '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'); + output_html_with_http_headers $query, $cookie, $template->output;