X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=authorities%2Fblinddetail-biblio-search.pl;h=13f5dc65b9f04f20743ec6e88601f46a1304463d;hb=0ea53c745632e3b45bcad2d2238e4b126a323231;hp=1a4c56be77c1e62cf21e0bd1c4e876923749426d;hpb=a712d1cc30520cfaf7dbdbade65050dcc1ab13a6;p=koha-ffzg.git diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl index 1a4c56be77..13f5dc65b9 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/authorities/blinddetail-biblio-search.pl @@ -4,25 +4,26 @@ # # 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 -etail.pl : script to show an authority in MARC format +blinddetail-biblio-search.pl : script to show an authority in MARC format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -33,103 +34,98 @@ parameters tables. =head1 FUNCTIONS -=over 2 - =cut - use strict; -require Exporter; +use warnings; + use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; use C4::Output; -use C4::Interface::CGI::Output; -use CGI; -use C4::Search; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Koha; -use HTML::Template; -my $query=new CGI; +use Koha::Authorities; +use Koha::Authority::Types; -my $dbh=C4::Context->dbh; +my $query = new CGI; -my $authid = $query->param('authid'); -my $index = $query->param('index'); -my $authtypecode = &AUTHfind_authtypecode($dbh,$authid); -my $tagslib = &AUTHgettagslib($dbh,1,$authtypecode); +my $dbh = C4::Context->dbh; -my $auth_type = AUTHgetauth_type($authtypecode); -# warn "XX = ".$auth_type->{auth_tag_to_report}; +my $authid = $query->param('authid'); +my $index = $query->param('index'); +my $tagid = $query->param('tagid'); +my $relationship = $query->param('relationship'); -my $record =AUTHgetauthority($dbh,$authid); # open template -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "authorities/blinddetail-biblio-search.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {catalogue => 1}, - debug => 1, - }); +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "authorities/blinddetail-biblio-search.tt", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => { editcatalogue => 'edit_catalogue' }, + } +); + +# Extract the tag number from the index +my $tag_number = $index; +$tag_number =~ s/^tag_(\d*)_.*$/$1/; # fill arrays -my @loop_data =(); -my $tag; -my @loop_data =(); +my @subfield_loop; +my ($indicator1, $indicator2); if ($authid) { - foreach my $field ($record->fields($auth_type->{auth_tag_to_report})) { - my @subfields_data; - my @subf=$field->subfields; - # loop through each subfield - for my $i (0..$#subf) { - $subf[$i][0] = "@" unless $subf[$i][0]; - my %subfield_data; - $subfield_data{marc_value}=$subf[$i][1]; - $subfield_data{marc_subfield}=$subf[$i][0]; - $subfield_data{marc_tag}=$field->tag(); - push(@subfields_data, \%subfield_data); - } - if ($#subfields_data>=0) { - my %tag_data; - $tag_data{tag}=$field->tag().' -'. $tagslib->{$field->tag()}->{lib}; - $tag_data{subfield} = \@subfields_data; - push (@loop_data, \%tag_data); - } - } + my $auth = Koha::Authorities->find( $authid ); + my $authtypecode = $auth ? $auth->authtypecode : q{}; + my $auth_type = Koha::Authority::Types->find($authtypecode); + my $record = GetAuthority($authid); + my @fields = $record->field( $auth_type->auth_tag_to_report ); + my $repet = ($query->param('repet') || 1) - 1; + my $field = $fields[$repet]; + + # Get all values for each distinct subfield + my %subfields; + for ( $field->subfields ) { + next if $_->[0] eq '9'; # $9 will be set with authid value + my $letter = $_->[0]; + next if defined $subfields{$letter}; + my @values = $field->subfield($letter); + $subfields{$letter} = \@values; + } + + # Add all subfields to the subfield_loop + for( keys %subfields ) { + my $letter = $_ || '@'; + push( @subfield_loop, {marc_subfield => $letter, marc_values => $subfields{$_}} ); + } + + push( @subfield_loop, { marc_subfield => 'w', marc_values => $relationship } ) if ( $relationship ); + + my $controlled_ind = $auth->controlled_indicators({ record => $record, biblio_tag => $tag_number }); + $indicator1 = $controlled_ind->{ind1}; + $indicator2 = $controlled_ind->{ind2}; + if( defined $controlled_ind->{sub2} ) { + my $v = $controlled_ind->{sub2}; + push @subfield_loop, { marc_subfield => '2', marc_values => [ $v ] }; + } } else { -# authid is empty => the user want to empty the entry. - my @subfields_data; - foreach my $subfield ('a'..'z') { - my %subfield_data; - $subfield_data{marc_value}=''; - $subfield_data{marc_subfield}=$subfield; - push(@subfields_data, \%subfield_data); - } -# if ($#subfields_data>=0) { - my %tag_data; -# $tag_data{tag}=$field->tag().' -'. $tagslib->{$field->tag()}->{lib}; - $tag_data{subfield} = \@subfields_data; - push (@loop_data, \%tag_data); -# } + # authid is empty => the user want to empty the entry. + $template->param( "clear" => 1 ); } -$template->param("0XX" =>\@loop_data); - -# my $authtypes = getauthtypes; -# my @authtypesloop; -# foreach my $thisauthtype (keys %$authtypes) { -# my $selected = 1 if $thisauthtype eq $authtypecode; -# my %row =(value => $thisauthtype, -# selected => $selected, -# authtypetext => $authtypes->{$thisauthtype}{'authtypetext'}, -# ); -# push @authtypesloop, \%row; -# } - -$template->param(authid => $authid?$authid:"", -# authtypesloop => \@authtypesloop, - index => $index); -output_html_with_http_headers $query, $cookie, $template->output; +$template->param( + authid => $authid ? $authid : "", + index => $index, + tagid => $tagid, + update_ind1 => defined($indicator1), + indicator1 => $indicator1, + update_ind2 => defined($indicator2), + indicator2 => $indicator2, + SUBFIELD_LOOP => \@subfield_loop, + tag_number => $tag_number, +); +output_html_with_http_headers $query, $cookie, $template->output;