X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=catalogue%2FISBDdetail.pl;h=71ac8861f6465c4826e8725677888620a8cfab6d;hb=refs%2Fheads%2Fkoha_ffzg;hp=d47a7b0fa11f7eca733adf81c646901772dd6db1;hpb=044b6b4a7c63f116d2a6c8bd35f3806b509211e3;p=koha.git diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl index d47a7b0fa1..71ac8861f6 100755 --- a/catalogue/ISBDdetail.pl +++ b/catalogue/ISBDdetail.pl @@ -4,18 +4,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., 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, see . =head1 NAME @@ -23,6 +23,7 @@ ISBDdetail.pl : script to show a biblio in ISBD format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -30,70 +31,37 @@ This script needs a biblionumber as parameter =head1 FUNCTIONS -=over 2 - =cut -use strict; -require Exporter; +use Modern::Perl; + +use HTML::Entities; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Biblio; -use C4::Branch; # GetBranchDetail +use C4::Items; use C4::Serials; # CountSubscriptionFromBiblionumber +use C4::Search; # enabled_staff_search_views +use C4::Acquisition qw(GetOrdersByBiblionumber); - -#---- Internal function - -sub get_authorised_value_desc ($$$$$$$) { - my ( $itemtype, $tagslib, $tag, $subfield, $value, $framework, $dbh ) = @_; - - #---- branch - if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) { - return GetBranchDetail($value)->{branchname}; - } - - #---- itemtypes - if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "itemtypes" ) { - my $itemtypedef = getitemtypeinfo($value); - return $itemtypedef->{description}; - } - - #---- "true" authorized value - my $category = $tagslib->{$tag}->{$subfield}->{'authorised_value'}; - - if ( $category ne "" ) { - my $sth = - $dbh->prepare( -"select lib from authorised_values where category = ? and authorised_value = ?" - ); - $sth->execute( $category, $value ); - my $data = $sth->fetchrow_hashref; - return $data->{'lib'}; - } - else { - return $value; # if nothing is found return the original value - } -} -# ------ +use Koha::Biblios; +use Koha::Patrons; +use Koha::RecordProcessor; my $query = new CGI; my $dbh = C4::Context->dbh; my $biblionumber = $query->param('biblionumber'); -my $itemtype = &GetFrameworkCode($biblionumber); -my $tagslib = &GetMarcStructure( 1, $itemtype ); - -my $record = GetMarcBiblio($biblionumber); +$biblionumber = HTML::Entities::encode($biblionumber); # open template my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { - template_name => "catalogue/ISBDdetail.tmpl", + template_name => "catalogue/ISBDdetail.tt", query => $query, type => "intranet", authnotrequired => 0, @@ -101,78 +69,57 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); -my $ISBD = C4::Context->preference('ISBD'); - -# my @blocs = split /\@/,$ISBD; -# my @fields = $record->fields(); -my $res; - -# foreach my $bloc (@blocs) { -# $bloc =~ s/\n//g; -my $bloc = $ISBD; -my $blocres; -foreach my $isbdfield ( split /#/, $bloc ) { - - # $isbdfield= /(.?.?.?)/; - $isbdfield =~ /(\d\d\d)\|(.*)\|(.*)\|(.*)/; - my $fieldvalue = $1; - my $textbefore = $2; - my $analysestring = $3; - my $textafter = $4; - - # warn "==> $1 / $2 / $3 / $4"; - # my $fieldvalue=substr($isbdfield,0,3); - if ( $fieldvalue > 0 ) { - - # warn "ERROR IN ISBD DEFINITION at : $isbdfield" unless $fieldvalue; - # warn "FV : $fieldvalue"; - my $hasputtextbefore = 0; - foreach my $field ( $record->field($fieldvalue) ) { - my $calculated = $analysestring; - my $tag = $field->tag(); - if ( $tag < 10 ) { - } - else { - my @subf = $field->subfields; - for my $i ( 0 .. $#subf ) { - my $subfieldcode = $subf[$i][0]; - my $subfieldvalue = - get_authorised_value_desc( $itemtype,$tagslib, $tag, $subf[$i][0], - $subf[$i][1], '', $dbh ); - my $tagsubf = $tag . $subfieldcode; - $calculated =~ -s/\{(.?.?.?)$tagsubf(.*?)\}/$1$subfieldvalue$2\{$1$tagsubf$2\}/g; - } - - # field builded, store the result - if ( $calculated && !$hasputtextbefore ) - { # put textbefore if not done - $blocres .= $textbefore; - $hasputtextbefore = 1; - } - - # remove punctuation at start - $calculated =~ s/^( |;|:|\.|-)*//g; - $blocres .= $calculated; - } - } - $blocres .= $textafter if $hasputtextbefore; - } - else { - $blocres .= $isbdfield; - } +if ( not defined $biblionumber ) { + # biblionumber invalid -> report and exit + $template->param( unknownbiblionumber => 1, + biblionumber => $biblionumber + ); + output_html_with_http_headers $query, $cookie, $template->output; + exit; } -$res .= $blocres; -# } -$res =~ s/\{(.*?)\}//g; -$res =~ s/\\n/\n/g; -$res =~ s/\n//g; +my $record = GetMarcBiblio({ + biblionumber => $biblionumber, + embed_items => 1 }); + +if ( not defined $record ) { + # biblionumber invalid -> report and exit + $template->param( unknownbiblionumber => 1, + biblionumber => $biblionumber + ); + output_html_with_http_headers $query, $cookie, $template->output; + exit; +} + +my $biblio = Koha::Biblios->find( $biblionumber ); +my $framework = GetFrameworkCode( $biblionumber ); +my $record_processor = Koha::RecordProcessor->new({ + filters => 'ViewPolicy', + options => { + interface => 'intranet', + frameworkcode => 'ACQ' + }, +}); +$record_processor->process($record); + +my $res = GetISBDView({ + 'record' => $record, + 'template' => 'intranet', + 'framework' => $framework, +}); + +if($query->cookie("holdfor")){ + my $holdfor_patron = Koha::Patrons->find( $query->cookie("holdfor") ); + $template->param( + holdfor => $query->cookie("holdfor"), + holdfor_surname => $holdfor_patron->surname, + holdfor_firstname => $holdfor_patron->firstname, + holdfor_cardnumber => $holdfor_patron->cardnumber, + ); +} -# remove empty () -$res =~ s/\(\)//g; # count of item linked with biblio -my $itemcount = GetItemsCount($biblionumber); +my $itemcount = $biblio->items->count; $template->param( count => $itemcount); my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); @@ -188,7 +135,43 @@ if ($subscriptionsnumber) { $template->param ( ISBD => $res, biblionumber => $biblionumber, + isbdview => 1, + z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber)), + ocoins => GetCOinSBiblio($record), + C4::Search::enabled_staff_search_views, + searchid => scalar $query->param('searchid'), ); +my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber); +my @deletedorders_using_biblio; +my @orders_using_biblio; +my @baskets_orders; +my @baskets_deletedorders; + +foreach my $myorder (@allorders_using_biblio) { + my $basket = $myorder->{'basketno'}; + if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){ + push @deletedorders_using_biblio, $myorder; + unless (grep(/^$basket$/, @baskets_deletedorders)){ + push @baskets_deletedorders,$myorder->{'basketno'}; + } + } + else { + push @orders_using_biblio, $myorder; + unless (grep(/^$basket$/, @baskets_orders)){ + push @baskets_orders,$myorder->{'basketno'}; + } + } +} + +my $count_orders_using_biblio = scalar @orders_using_biblio ; +$template->param (countorders => $count_orders_using_biblio); + +my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ; +$template->param (countdeletedorders => $count_deletedorders_using_biblio); + +my $holds = $biblio->holds; +$template->param( holdcount => $holds->count ); + output_html_with_http_headers $query, $cookie, $template->output;