X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-detail.pl;h=cdb4a5aecda2081d95c385276a2f471020b58589;hb=be12aa96094ab003949c78e8246db56027931cac;hp=6345da1c98c803fa5e87da3e9f0a64c2536d14b9;hpb=c78608483e113c9a66fc8ae90459628b9dae5f44;p=koha_fer diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index 6345da1c98..cdb4a5aecd 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,22 @@ 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; BEGIN { if (C4::Context->preference('BakerTaylorEnabled')) { @@ -66,33 +70,360 @@ 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 ) ); - 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 $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; # Getting items to be hidden 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) { @@ -119,10 +450,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; @@ -133,8 +465,8 @@ 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}; @@ -159,10 +491,34 @@ if ($dat->{'count'} >= 50 && !$viewallitems) { 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; 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'} ) @@ -174,13 +530,12 @@ for my $itm (@items) { # 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'} }; } @@ -201,15 +556,13 @@ 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::CheckReserves($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}; } @@ -217,13 +570,13 @@ for my $itm (@items) { ## get notes and subjects from MARC record my $dbh = C4::Context->dbh; -my $marcflavour = C4::Context->preference("marcflavour"); my $marcnotesarray = GetMarcNotes ($record,$marcflavour); 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); my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($biblionumber)); $template->param( @@ -232,6 +585,8 @@ my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($bib MARCAUTHORS => $marcauthorsarray, MARCSERIES => $marcseriesarray, MARCURLS => $marcurlsarray, + MARCISBNS => $marcisbnsarray, + MARCHOSTS => $marchostsarray, norequests => $norequests, RequestOnOpac => C4::Context->preference("RequestOnOpac"), itemdata_ccode => $itemfields{ccode}, @@ -241,6 +596,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) { @@ -278,10 +634,12 @@ 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 = 1 if ($isbn or $ean or $oclc or $upc); +my $content_identifier_exists; +if ( $isbn or $ean or $oclc or $upc ) { + $content_identifier_exists = 1; +} $template->param( normalized_upc => $upc, normalized_ean => $ean, @@ -292,20 +650,38 @@ $template->param( # COinS format FIXME: for books Only $template->param( - ocoins => GetCOinSBiblio($biblionumber), + ocoins => GetCOinSBiblio($record), ); +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; + } +} + my $reviews = getreviews( $biblionumber, 1 ); my $loggedincommenter; + + + + foreach ( @$reviews ) { my $borrowerData = GetMember('borrowernumber' => $_->{borrowernumber}); # setting some borrower info into this hash $_->{title} = $borrowerData->{'title'}; $_->{surname} = $borrowerData->{'surname'}; $_->{firstname} = $borrowerData->{'firstname'}; + if ($libravatar_enabled and $borrowerData->{'email'}) { + $_->{avatarurl} = libravatar_url(email => $borrowerData->{'email'}, https => $ENV{HTTPS}); + } $_->{userid} = $borrowerData->{'userid'}; $_->{cardnumber} = $borrowerData->{'cardnumber'}; - $_->{datereviewed} = format_date($_->{datereviewed}); + if ($borrowerData->{'borrowernumber'} eq $borrowernumber) { $_->{your_comment} = 1; $loggedincommenter = 1; @@ -346,6 +722,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) { @@ -353,9 +732,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); } } @@ -365,47 +750,9 @@ 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); } my $syndetics_elements; @@ -482,14 +829,29 @@ $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")) { # pick the first itemnumber unless one was selected by the user @@ -513,6 +875,8 @@ if (C4::Context->preference("OPACShelfBrowser")) { } } +$template->param( AmazonTld => get_amazon_tld() ) if ( C4::Context->preference("OPACAmazonCoverImages")); + if (C4::Context->preference("BakerTaylorEnabled")) { $template->param( BakerTaylorEnabled => 1, @@ -552,8 +916,26 @@ 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; @@ -561,9 +943,10 @@ if (my $search_for_title = C4::Context->preference('OPACSearchForTitleIn')){ $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; + $issn ? $search_for_title =~ s/{ISSN}/$issn/g : $search_for_title =~ s/{ISSN}//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); + $template->param('OPACSearchForTitleIn' => $search_for_title); } # We try to select the best default tab to show, according to what @@ -582,4 +965,13 @@ my $defaulttab = ? 'serialcollection' : 'subscription'; $template->param('defaulttab' => $defaulttab); +if (C4::Context->preference('OPACLocalCoverImages') == 1) { + my @images = ListImagesForBiblio($biblionumber); + $template->{VARS}->{localimages} = \@images; +} + +if (C4::Context->preference('OpacHighlightedWords')) { + $template->{VARS}->{query_desc} = $query->param('query_desc'); +} + output_html_with_http_headers $query, $cookie, $template->output;