X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;ds=sidebyside;f=opac%2Fopac-MARCdetail.pl;h=aaa565d2196ccb4b4460e7ae586b5532426346c5;hb=bed4c271841e7efcfe6ead21a12ef7d510eef931;hp=940104b2770ebfe352c7c220b38bb5b2bee70017;hpb=4747ea7462c04770484386538b1594c1760bc75b;p=koha_fer diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl index 940104b277..aaa565d219 100755 --- a/opac/opac-MARCdetail.pl +++ b/opac/opac-MARCdetail.pl @@ -1,28 +1,32 @@ #!/usr/bin/perl -# Copyright 2000-2002 Katipo Communications -# # 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. +# Copyright (C) 2000-2002 Katipo Communications +# Parts Copyright (C) 2010 BibLibre +# Parts Copyright (C) 2013 Mark Tompsett +# +# 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 -MARCdetail.pl : script to show a biblio in MARC format +opac-MARCdetail.pl : script to show a biblio in MARC format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -39,33 +43,57 @@ the items attached to the biblio =cut -use strict; +use Modern::Perl; + use C4::Auth; use C4::Context; use C4::Output; use CGI; use MARC::Record; use C4::Biblio; +use C4::Items; use C4::Acquisition; use C4::Koha; +use List::MoreUtils qw/any/; my $query = new CGI; my $dbh = C4::Context->dbh; my $biblionumber = $query->param('biblionumber'); +if ( ! $biblionumber ) { + print $query->redirect("/cgi-bin/koha/errors/404.pl"); + exit; +} + +my @all_items = GetItemsInfo($biblionumber); +my @items2hide; +if (scalar @all_items >= 1) { + push @items2hide, GetHiddenItemnumbers(@all_items); + + if (scalar @items2hide == scalar @all_items ) { + print $query->redirect("/cgi-bin/koha/errors/404.pl"); + exit; + } +} + my $itemtype = &GetFrameworkCode($biblionumber); my $tagslib = &GetMarcStructure( 0, $itemtype ); +my ($tag_itemnumber,$subtag_itemnumber) = &GetMarcFromKohaField('items.itemnumber',$itemtype); my $biblio = GetBiblioData($biblionumber); -my $record = GetMarcBiblio($biblionumber); - +$biblionumber = $biblio->{biblionumber}; +my $record = GetMarcBiblio($biblionumber, 1); +if ( ! $record ) { + print $query->redirect("/cgi-bin/koha/errors/404.pl"); + exit; +} # open template my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => "opac-MARCdetail.tmpl", query => $query, type => "opac", - authnotrequired => 1, + authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), debug => 1, } ); @@ -74,6 +102,17 @@ $template->param( bibliotitle => $biblio->{title}, ); +# 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 ); + } +} + $template->param( 'AllowOnShelfHolds' => C4::Context->preference('AllowOnShelfHolds') ); $template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) ); @@ -88,7 +127,7 @@ my @loop_data = (); my $tag; # loop through each tab 0 through 9 -for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { +for ( my $tabloop = 0 ; $tabloop <= 9 ; $tabloop++ ) { # loop through each tag my @loop_data = (); @@ -130,46 +169,37 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { } else { my @subf = $fields[$x_i]->subfields; - my $previous; + my $previous = ''; # loop through each subfield for my $i ( 0 .. $#subf ) { - $subf[$i][0] = "@" unless $subf[$i][0]; - next - if ( - $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab} - ne $tabloop ); - next - if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{hidden} > 0 ); + $subf[$i][0] = "@" unless defined($subf[$i][0]); + my $sf_def = $tagslib->{ $fields[$x_i]->tag() }; + $sf_def = $sf_def->{ $subf[$i][0] } if defined($sf_def); + my ($tab,$hidden,$lib); + $tab = $sf_def->{tab} if defined($sf_def); + $tab = $tab // int($fields[$x_i]->tag()/100); + $hidden = $sf_def->{hidden} if defined($sf_def); + $hidden = $hidden // 0; + next if ( $tab != $tabloop ); + next if ( $hidden > 0 ); my %subfield_data; - $subfield_data{marc_lib} = - ($tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib} eq $previous) ? - '--' : - $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib}; - $previous = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib}; - $subfield_data{link} = - $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{link}; + $lib = $sf_def->{lib} if defined($sf_def); + $lib = $lib // '--'; + $subfield_data{marc_lib} = ($lib eq $previous) ? '--' : $lib; + $previous = $lib; + $subfield_data{link} = $sf_def->{link}; $subf[$i][1] =~ s/\n//g; - if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] } - ->{isurl} ) - { - $subfield_data{marc_value} = - "$subf[$i][1]"; + if ( $sf_def->{isurl} ) { + $subfield_data{marc_value} = "$subf[$i][1]"; } - elsif ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] } - ->{kohafield} eq "biblioitems.isbn" ) - { - -# warn " tag : ".$tagslib->{$fields[$x_i]->tag()}." subfield :".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}. "ISBN : ".$subf[$i][1]."PosttraitementISBN :".DisplayISBN($subf[$i][1]); + elsif ( defined($sf_def->{kohafield}) && $sf_def->{kohafield} eq "biblioitems.isbn" ) { $subfield_data{marc_value} = $subf[$i][1]; } else { - if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] } - ->{authtypecode} ) - { + if ( $sf_def->{authtypecode} ) { $subfield_data{authority} = $fields[$x_i]->subfield(9); } - $subfield_data{marc_value} = - GetAuthorisedValueDesc( $fields[$x_i]->tag(), + $subfield_data{marc_value} = GetAuthorisedValueDesc( $fields[$x_i]->tag(), $subf[$i][0], $subf[$i][1], '', $tagslib, '', 'opac' ); } $subfield_data{marc_subfield} = $subf[$i][0]; @@ -190,12 +220,13 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { $tag_data{tag} = $tagslib->{ $fields[$x_i]->tag() }->{lib}; } else { - $tag_data{tag} = - $fields[$x_i]->tag() - . ' ' + my $sf_def = $tagslib->{ $fields[$x_i]->tag() }; + my $lib; + $lib = $sf_def->{lib} if defined($sf_def); + $lib = $lib // ''; + $tag_data{tag} = $fields[$x_i]->tag() . ' ' . C4::Koha::display_marc_indicators($fields[$x_i]) - . ' - ' - . $tagslib->{ $fields[$x_i]->tag() }->{lib}; + . " - $lib"; } } my @tmp = @subfields_data; @@ -204,7 +235,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { undef @subfields_data; } } - $template->param( $tabloop . "XX" => \@loop_data ); + $template->param( "tab" . $tabloop . "XX" => \@loop_data ); } @@ -219,28 +250,27 @@ my %witness my @big_array; foreach my $field (@fields) { next if ( $field->tag() < 10 ); + next if ( ( $field->tag() eq $tag_itemnumber ) && + ( any { $field->subfield($subtag_itemnumber) eq $_ } + @items2hide) ); my @subf = $field->subfields; my %this_row; # loop through each subfield for my $i ( 0 .. $#subf ) { - next if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{tab} ne 10 ); - next if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{hidden} > 0 ); - $witness{ $subf[$i][0] } = - $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{lib}; - - if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{isurl} ) { - $this_row{ $subf[$i][0] } = - "$subf[$i][1]"; + my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] }; + next if ( ($sf_def->{tab}||0) != 10 ); + next if ( ($sf_def->{hidden}||0) > 0 ); + $witness{ $subf[$i][0] } = $sf_def->{lib}; + + if ( $sf_def->{isurl} ) { + $this_row{ $subf[$i][0] } = "$subf[$i][1]"; } - elsif ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq - "biblioitems.isbn" ) - { + elsif ( $sf_def->{kohafield} eq "biblioitems.isbn" ) { $this_row{ $subf[$i][0] } = $subf[$i][1]; } else { - $this_row{ $subf[$i][0] } = - GetAuthorisedValueDesc( $field->tag(), $subf[$i][0], + $this_row{ $subf[$i][0] } = GetAuthorisedValueDesc( $field->tag(), $subf[$i][0], $subf[$i][1], '', $tagslib, '', 'opac' ); } } @@ -251,7 +281,7 @@ foreach my $field (@fields) { my ( $holdingbrtagf, $holdingbrtagsubf ) = &GetMarcFromKohaField( "items.holdingbranch", $itemtype ); @big_array = - sort { $a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf} } @big_array; + sort { ($a->{$holdingbrtagsubf}||'') cmp ($b->{$holdingbrtagsubf}||'') } @big_array; #fill big_row with missing datas foreach my $subfield_code ( keys(%witness) ) { @@ -284,6 +314,36 @@ if(C4::Context->preference("ISBD")) { $template->param(ISBD => 1); } +#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 $marcflavour = C4::Context->preference("marcflavour"); +my $dat = TransformMarcToKoha( $dbh, $record ); +my $isbn = GetNormalizedISBN(undef,$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->{title} =~ s/\/+$//; # remove trailing slash + $dat->{title} =~ s/\s+$//; # remove trailing space + $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); +} + $template->param( item_loop => \@item_value_loop, item_header_loop => \@header_value_loop,