X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-detail.pl;h=f2308347a2805b4d15fbd80ce453aa272f62b00c;hb=700de9664d0e9016845d12916905e458cab9dbd4;hp=f98f30e4494561b14c65c33d75f11a7dbcc891f1;hpb=199ec1473afa49ade9a5466d340a3361b60244cd;p=koha_fer diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index f98f30e449..f2308347a2 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl # Copyright 2000-2002 Katipo Communications +# Copyright 2010 BibLibre # # This file is part of Koha. # @@ -13,9 +14,9 @@ # 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, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; @@ -36,9 +37,13 @@ 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::Serials; use C4::Members; +use C4::VirtualShelves; use C4::XSLT; +use C4::ShelfBrowser; +use C4::Charset; +use MARC::Record; +use MARC::Field; BEGIN { if (C4::Context->preference('BakerTaylorEnabled')) { @@ -53,18 +58,28 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( template_name => "opac-detail.tmpl", query => $query, type => "opac", - authnotrequired => 1, + authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), flagsrequired => { borrow => 1 }, } ); 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"); + exit; +} $template->param( biblionumber => $biblionumber ); + +SetUTF8Flag($record); + # XSLT processing of some stuff -if (C4::Context->preference("XSLTDetailsDisplay") ) { - my $newxmlrecord = XSLTParse4Display($biblionumber, $record, C4::Context->config('opachtdocs')."/prog/en/xslt/MARC21slim2OPACDetail.xsl"); - $template->param('XSLTBloc' => $newxmlrecord); +if (C4::Context->preference("OPACXSLTDetailsDisplay") ) { + $template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, 'Detail', 'opac') ); } $template->param('OPACShowCheckoutName' => C4::Context->preference("OPACShowCheckoutName") ); @@ -81,10 +96,6 @@ if (C4::Context->preference('hidelostitems')) { } my $dat = &GetBiblioData($biblionumber); -if (!$dat) { - print $query->redirect("/cgi-bin/koha/errors/404.pl"); - exit; -} my $itemtypes = GetItemTypes(); # imageurl: my $itemtype = $dat->{'itemtype'}; @@ -92,12 +103,12 @@ if ( $itemtype ) { $dat->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{$itemtype}->{'imageurl'} ); $dat->{'description'} = $itemtypes->{$itemtype}->{'description'}; } -my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'}); -my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'} ); +my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'}, 'opac'); +my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'}, 'opac'); #coping with subscriptions my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); -my @subscriptions = GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber ); +my @subscriptions = GetSubscriptions( undef, undef, $biblionumber ); my @subs; $dat->{'serial'}=1 if $subscriptionsnumber; @@ -106,7 +117,12 @@ foreach my $subscription (@subscriptions) { my %cell; $cell{subscriptionid} = $subscription->{subscriptionid}; $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{branchcode} = $subscription->{branchcode}; + $cell{branchname} = GetBranchName($subscription->{branchcode}); $cell{hasalert} = $subscription->{hasalert}; #get the three latest serials. $serials_to_display = $subscription->{opacdisplaycount}; @@ -119,6 +135,14 @@ 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 $norequests = 1; @@ -150,7 +174,7 @@ for my $itm (@items) { $itm->{'imageurl'} = getitemtypeimagelocation( 'opac', $itemtypes->{ $itm->{itype} }->{'imageurl'} ); $itm->{'description'} = $itemtypes->{ $itm->{itype} }->{'description'}; } - foreach (qw(ccode enumchron copynumber itemnotes)) { + foreach (qw(ccode enumchron copynumber itemnotes uri)) { $itemfields{$_} = 1 if ($itm->{$_}); } @@ -181,11 +205,12 @@ for my $itm (@items) { 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 $subtitle = C4::Biblio::get_koha_field_from_marc('bibliosubtitle', 'subtitle', $record, ''); +my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($biblionumber)); $template->param( MARCNOTES => $marcnotesarray, @@ -197,12 +222,40 @@ my $subtitle = C4::Biblio::get_koha_field_from_marc('bibliosubtitle', 's 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}, authorised_value_images => $biblio_authorised_value_images, subtitle => $subtitle, ); +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, + ); +} + foreach ( keys %{$dat} ) { $template->param( "$_" => defined $dat->{$_} ? $dat->{$_} : '' ); } @@ -224,24 +277,20 @@ $template->param( ); # COinS format FIXME: for books Only -my $coins_format; -my $fmt = substr $record->leader(), 6,2; -my $fmts; -$fmts->{'am'} = 'book'; -$coins_format = $fmts->{$fmt}; $template->param( - ocoins_format => $coins_format, + ocoins => GetCOinSBiblio($biblionumber), ); my $reviews = getreviews( $biblionumber, 1 ); my $loggedincommenter; foreach ( @$reviews ) { - my $borrowerData = GetMember($_->{borrowernumber},'borrowernumber'); + my $borrowerData = GetMember('borrowernumber' => $_->{borrowernumber}); # setting some borrower info into this hash $_->{title} = $borrowerData->{'title'}; $_->{surname} = $borrowerData->{'surname'}; $_->{firstname} = $borrowerData->{'firstname'}; $_->{userid} = $borrowerData->{'userid'}; + $_->{cardnumber} = $borrowerData->{'cardnumber'}; $_->{datereviewed} = format_date($_->{datereviewed}); if ($borrowerData->{'borrowernumber'} eq $borrowernumber) { $_->{your_comment} = 1; @@ -264,6 +313,13 @@ $template->param( loggedincommenter => $loggedincommenter ); +# Lists + +if (C4::Context->preference("virtualshelves") ) { + $template->param( 'GetShelves' => GetBibliosShelves( $biblionumber ) ); +} + + # XISBN Stuff if (C4::Context->preference("OPACFRBRizeEditions")==1) { eval { @@ -273,6 +329,28 @@ if (C4::Context->preference("OPACFRBRizeEditions")==1) { }; if ($@) { warn "XISBN Failed $@"; } } + +# Serial Collection +my @sc_fields = $record->field(955); +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'); + + if ($row_data{text} && $row_data{branch}) { + push (@serialcollections, \%row_data); + } +} + +if (scalar(@serialcollections) > 0) { + $template->param( + serialcollection => 1, + serialcollections => \@serialcollections); +} + # Amazon.com Stuff if ( C4::Context->preference("OPACAmazonEnabled") ) { $template->param( AmazonTld => get_amazon_tld() ); @@ -280,17 +358,15 @@ if ( C4::Context->preference("OPACAmazonEnabled") ) { my $amazon_similars = C4::Context->preference("OPACAmazonSimilarItems"); my @services; if ( $amazon_reviews ) { - $template->param( OPACAmazonReviews => 1 ); push( @services, 'EditorialReview', 'Reviews' ); } if ( $amazon_similars ) { - $template->param( OPACAmazonSimilarItems => 1 ); 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}; + 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}); @@ -302,7 +378,7 @@ if ( C4::Context->preference("OPACAmazonEnabled") ) { $template->param( AMAZON_EDITORIAL_REVIEWS => $editorial_reviews ); } if ( $amazon_similars ) { - my $item = $amazon_details->{Items}->{Item}; + 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? @@ -321,9 +397,11 @@ if ( C4::Context->preference("OPACAmazonEnabled") ) { 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) { + $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"; } @@ -333,10 +411,10 @@ if ( C4::Context->preference("SyndeticsEnabled") ) { if ( C4::Context->preference("SyndeticsEnabled") && C4::Context->preference("SyndeticsSummary") - && $syndetics_elements->{'SUMMARY'} =~ /SUMMARY/) { + && ( exists($syndetics_elements->{'SUMMARY'}) || exists($syndetics_elements->{'AVSUMMARY'}) ) ) { eval { - my $syndetics_summary = &get_syndetics_summary($isbn,$upc,$oclc); - $template->param( SYNDETICS_SUMMARY => $syndetics_summary ); + my $syndetics_summary = &get_syndetics_summary($isbn,$upc,$oclc, $syndetics_elements); + $template->param( SYNDETICS_SUMMARY => $syndetics_summary ); }; warn $@ if $@; @@ -344,7 +422,7 @@ if ( C4::Context->preference("SyndeticsEnabled") if ( C4::Context->preference("SyndeticsEnabled") && C4::Context->preference("SyndeticsTOC") - && $syndetics_elements->{'TOC'} =~ /TOC/) { + && exists($syndetics_elements->{'TOC'}) ) { eval { my $syndetics_toc = &get_syndetics_toc($isbn,$upc,$oclc); $template->param( SYNDETICS_TOC => $syndetics_toc ); @@ -354,7 +432,7 @@ if ( C4::Context->preference("SyndeticsEnabled") if ( C4::Context->preference("SyndeticsEnabled") && C4::Context->preference("SyndeticsExcerpt") - && $syndetics_elements->{'DBCHAPTER'} =~ /DBCHAPTER/ ) { + && exists($syndetics_elements->{'DBCHAPTER'}) ) { eval { my $syndetics_excerpt = &get_syndetics_excerpt($isbn,$upc,$oclc); $template->param( SYNDETICS_EXCERPT => $syndetics_excerpt ); @@ -373,7 +451,7 @@ if ( C4::Context->preference("SyndeticsEnabled") if ( C4::Context->preference("SyndeticsEnabled") && C4::Context->preference("SyndeticsAuthorNotes") - && $syndetics_elements->{'ANOTES'} =~ /ANOTES/ ) { + && exists($syndetics_elements->{'ANOTES'}) ) { eval { my $syndetics_anotes = &get_syndetics_anotes($isbn,$upc,$oclc); $template->param( SYNDETICS_ANOTES => $syndetics_anotes ); @@ -402,85 +480,23 @@ if ( C4::Context->preference("Babeltheque") ) { 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}; - $template->param( OpenOPACShelfBrowser => 1) if $starting_itemnumber; - # find the right cn_sort value for this item - my ($starting_cn_sort, $starting_homebranch, $starting_location); - my $sth_get_cn_sort = $dbh->prepare("SELECT cn_sort,homebranch,location from items where itemnumber=?"); - $sth_get_cn_sort->execute($starting_itemnumber); - while (my $result = $sth_get_cn_sort->fetchrow_hashref()) { - $starting_cn_sort = $result->{'cn_sort'}; - $starting_homebranch->{code} = $result->{'homebranch'}; - $starting_homebranch->{description} = $branches->{$result->{'homebranch'}}{branchname}; - $starting_location->{code} = $result->{'location'}; - $starting_location->{description} = GetAuthorisedValueDesc('','', $result->{'location'} ,'','','LOC'); - - } - - ## List of Previous Items - # order by cn_sort, which should include everything we need for ordering purposes (though not - # for limits, those need to be handled separately - my $sth_shelfbrowse_previous = $dbh->prepare(" - SELECT * - FROM items - WHERE - ((cn_sort = ? AND itemnumber < ?) OR cn_sort < ?) AND - homebranch = ? AND location = ? - ORDER BY cn_sort DESC, itemnumber LIMIT 3 - "); - $sth_shelfbrowse_previous->execute($starting_cn_sort, $starting_itemnumber, $starting_cn_sort, $starting_homebranch->{code}, $starting_location->{code}); - my @previous_items; - while (my $this_item = $sth_shelfbrowse_previous->fetchrow_hashref()) { - my $sth_get_biblio = $dbh->prepare("SELECT biblio.*,biblioitems.isbn AS isbn FROM biblio LEFT JOIN biblioitems ON biblio.biblionumber=biblioitems.biblionumber WHERE biblio.biblionumber=?"); - $sth_get_biblio->execute($this_item->{biblionumber}); - while (my $this_biblio = $sth_get_biblio->fetchrow_hashref()) { - $this_item->{'title'} = $this_biblio->{'title'}; - my $this_record = GetMarcBiblio($this_biblio->{'biblionumber'}); - $this_item->{'browser_normalized_upc'} = GetNormalizedUPC($this_record,$marcflavour); - $this_item->{'browser_normalized_oclc'} = GetNormalizedOCLCNumber($this_record,$marcflavour); - $this_item->{'browser_normalized_isbn'} = GetNormalizedISBN(undef,$this_record,$marcflavour); - } - unshift @previous_items, $this_item; - } - - ## List of Next Items; this also intentionally catches the current item - my $sth_shelfbrowse_next = $dbh->prepare(" - SELECT * - FROM items - WHERE - ((cn_sort = ? AND itemnumber >= ?) OR cn_sort > ?) AND - homebranch = ? AND location = ? - ORDER BY cn_sort, itemnumber LIMIT 3 - "); - $sth_shelfbrowse_next->execute($starting_cn_sort, $starting_itemnumber, $starting_cn_sort, $starting_homebranch->{code}, $starting_location->{code}); - my @next_items; - while (my $this_item = $sth_shelfbrowse_next->fetchrow_hashref()) { - my $sth_get_biblio = $dbh->prepare("SELECT biblio.*,biblioitems.isbn AS isbn FROM biblio LEFT JOIN biblioitems ON biblio.biblionumber=biblioitems.biblionumber WHERE biblio.biblionumber=?"); - $sth_get_biblio->execute($this_item->{biblionumber}); - while (my $this_biblio = $sth_get_biblio->fetchrow_hashref()) { - $this_item->{'title'} = $this_biblio->{'title'}; - my $this_record = GetMarcBiblio($this_biblio->{'biblionumber'}); - $this_item->{'browser_normalized_upc'} = GetNormalizedUPC($this_record,$marcflavour); - $this_item->{'browser_normalized_oclc'} = GetNormalizedOCLCNumber($this_record,$marcflavour); - $this_item->{'browser_normalized_isbn'} = GetNormalizedISBN(undef,$this_record,$marcflavour); - } - push @next_items, $this_item; + if (defined($starting_itemnumber)) { + $template->param( OpenOPACShelfBrowser => 1) if $starting_itemnumber; + my $nearby = GetNearbyItems($starting_itemnumber,3); + + $template->param( + starting_homebranch => $nearby->{starting_homebranch}->{description}, + starting_location => $nearby->{starting_location}->{description}, + starting_ccode => $nearby->{starting_ccode}->{description}, + starting_itemnumber => $nearby->{starting_itemnumber}, + shelfbrowser_prev_itemnumber => $nearby->{prev_itemnumber}, + shelfbrowser_next_itemnumber => $nearby->{next_itemnumber}, + shelfbrowser_prev_biblionumber => $nearby->{prev_biblionumber}, + shelfbrowser_next_biblionumber => $nearby->{next_biblionumber}, + PREVIOUS_SHELF_BROWSE => $nearby->{prev}, + NEXT_SHELF_BROWSE => $nearby->{next}, + ); } - - # alas, these won't auto-vivify, see http://www.perlmonks.org/?node_id=508481 - my $shelfbrowser_next_itemnumber = $next_items[-1]->{itemnumber} if @next_items; - my $shelfbrowser_next_biblionumber = $next_items[-1]->{biblionumber} if @next_items; - - $template->param( - starting_homebranch => $starting_homebranch->{description}, - starting_location => $starting_location->{description}, - starting_itemnumber => $starting_itemnumber, - shelfbrowser_prev_itemnumber => (@previous_items ? $previous_items[0]->{itemnumber} : 0), - shelfbrowser_next_itemnumber => $shelfbrowser_next_itemnumber, - shelfbrowser_prev_biblionumber => (@previous_items ? $previous_items[0]->{biblionumber} : 0), - shelfbrowser_next_biblionumber => $shelfbrowser_next_biblionumber, - PREVIOUS_SHELF_BROWSE => \@previous_items, - NEXT_SHELF_BROWSE => \@next_items, - ); } if (C4::Context->preference("BakerTaylorEnabled")) { @@ -514,4 +530,41 @@ if (C4::Context->preference('TagsEnabled') and $tag_quantity = C4::Context->pref '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'); +} + +#Search for title in links +my $marccontrolnumber = GetMarcControlnumber ($record, $marcflavour); + +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; + $template->param('OPACSearchForTitleIn' => $search_for_title); +} + +# 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 = + $opac_serial_default eq 'subscriptions' && $subscriptionsnumber + ? 'subscriptions' : + $opac_serial_default eq 'serialcollection' && @serialcollections > 0 + ? 'serialcollection' : + $opac_serial_default eq 'holdings' && $dat->{'count'} > 0 + ? 'holdings' : + $subscriptionsnumber + ? 'subscriptions' : + @serialcollections > 0 + ? 'serialcollection' : 'subscription'; +$template->param('defaulttab' => $defaulttab); + output_html_with_http_headers $query, $cookie, $template->output;