X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=opac%2Fopac-ISBDdetail.pl;h=40e9b71f4cb1c9f94a180f6842a054684e80df3c;hb=38428fd71e76fdd7c9a452bc831affa03918994c;hp=be628795e13c0d225a7016c165402f13b31ea4db;hpb=b764c1ee81728ce5007b89e28b8703742d202375;p=koha.git diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl index be628795e1..40e9b71f4c 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -5,18 +5,18 @@ # # 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 2 of the License, or (at your option) any later -# version. +# 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. +# 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, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . =head1 NAME @@ -29,7 +29,7 @@ This script needs a biblionumber as parameter It shows the biblio -The template is in /catalogue/ISBDdetail.tmpl. +The template is in /catalogue/ISBDdetail.tt. this template must be divided into 11 "tabs". The first 10 tabs present the biblio, the 11th one presents @@ -39,26 +39,30 @@ the items attached to the biblio =cut -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Biblio; use C4::Items; +use C4::Reserves; use C4::Acquisition; -use C4::Review; use C4::Serials; # uses getsubscriptionfrom biblionumber use C4::Koha; -use C4::Members; # GetMember +use Koha::IssuingRules; +use Koha::Items; +use Koha::ItemTypes; +use Koha::Patrons; +use Koha::RecordProcessor; +use Koha::Biblios; my $query = CGI->new(); my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { - template_name => "opac-ISBDdetail.tmpl", + template_name => "opac-ISBDdetail.tt", query => $query, type => "opac", authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), @@ -70,25 +74,45 @@ my $biblionumber = $query->param('biblionumber'); $biblionumber = int($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(my $cart_list = $query->cookie("bib_list")){ + my @cart_list = split(/\//, $cart_list); if ( grep {$_ eq $biblionumber} @cart_list) { $template->param( incart => 1 ); } } -$template->param( 'AllowOnShelfHolds' => C4::Context->preference('AllowOnShelfHolds') ); -$template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) ); - my $marcflavour = C4::Context->preference("marcflavour"); -my $record = GetMarcBiblio($biblionumber); + +my @items = GetItemsInfo($biblionumber); +if (scalar @items >= 1) { + my @hiddenitems = GetHiddenItemnumbers(@items); + + if (scalar @hiddenitems == scalar @items ) { + print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early + exit; + } +} + +my $record = GetMarcBiblio({ + biblionumber => $biblionumber, + embed_items => 1 }); if ( ! $record ) { print $query->redirect("/cgi-bin/koha/errors/404.pl"); exit; } + +my $biblio = Koha::Biblios->find( $biblionumber ); + +my $framework = GetFrameworkCode( $biblionumber ); +my $record_processor = Koha::RecordProcessor->new({ + filters => 'ViewPolicy', + options => { + interface => 'opac', + frameworkcode => $framework + } +}); +$record_processor->process($record); + # some useful variables for enhanced content; # in each case, we're grabbing the first value we find in # the record and normalizing it @@ -105,15 +129,15 @@ $template->param( normalized_ean => $ean, normalized_oclc => $oclc, normalized_isbn => $isbn, - content_identifier_exists => $content_identifier_exists, + content_identifier_exists => $content_identifier_exists, ); #coping with subscriptions my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); my $dbh = C4::Context->dbh; -my $dat = TransformMarcToKoha( $dbh, $record ); +my $dat = TransformMarcToKoha( $record ); -my @subscriptions = GetSubscriptions( $dat->{title}, $dat->{issn}, undef, $biblionumber ); +my @subscriptions = SearchSubscriptions({ biblionumber => $biblionumber, orderby => 'title' }); my @subs; foreach my $subscription (@subscriptions) { my %cell; @@ -137,59 +161,60 @@ $template->param( ); my $norequests = 1; -my $res = GetISBDView($biblionumber, "opac"); -my @items = GetItemsInfo( $biblionumber ); - -my $itemtypes = GetItemTypes(); +my $allow_onshelf_holds; +my $res = GetISBDView({ + 'record' => $record, + 'template' => 'opac', + 'framework' => $framework +}); + +my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } }; +my $patron = Koha::Patrons->find( $loggedinuser ); for my $itm (@items) { + my $item = Koha::Items->find( $itm->{itemnumber} ); $norequests = 0 - if ( (not $itm->{'wthdrawn'} ) - && (not $itm->{'itemlost'} ) - && ($itm->{'itemnotforloan'}<0 || not $itm->{'itemnotforloan'} ) - && (not $itemtypes->{$itm->{'itype'}}->{notforloan} ) - && ($itm->{'itemnumber'} ) ); + 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; } -my $reviews = getreviews( $biblionumber, 1 ); -foreach ( @$reviews ) { - my $borrower_number_review = $_->{borrowernumber}; - my $borrowerData = GetMember('borrowernumber' =>$borrower_number_review); - # setting some borrower info into this hash - $_->{title} = $borrowerData->{'title'}; - $_->{surname} = $borrowerData->{'surname'}; - $_->{firstname} = $borrowerData->{'firstname'}; +if( $allow_onshelf_holds || CountItemsIssued($biblionumber) || $biblio->has_items_waiting_or_intransit ) { + $template->param( ReservableItems => 1 ); } - $template->param( RequestOnOpac => C4::Context->preference("RequestOnOpac"), - AllowOnShelfHolds => C4::Context->preference('AllowOnShelfHolds'), norequests => $norequests, ISBD => $res, - biblionumber => $biblionumber, - reviews => $reviews, + biblio => $biblio, ); -#Export options -my $OpacExportOptions=C4::Context->preference("OpacExportOptions"); -my @export_options = split(/\|/,$OpacExportOptions); -$template->{VARS}->{'export_options'} = \@export_options; - #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->{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; - $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); + $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); } output_html_with_http_headers $query, $cookie, $template->output;