X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=authorities%2Fblinddetail-biblio-search.pl;h=f8ae22b2425d63a47cdb814949a50997b8b95afa;hb=c57ecd00ae312ad2464fbabeef9a7f2aa262cba5;hp=504a6985db1df88e8f02c24ca3062d3987c5205e;hpb=1ab5cdfd44b6226374881bb957c4b743471d73e4;p=koha.git diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl index 504a6985db..f8ae22b242 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,114 +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 CGI qw ( -utf8 ); use MARC::Record; use C4::Koha; +use Koha::Authorities; +use Koha::Authority::Types; -my $query=new CGI; - -my $dbh=C4::Context->dbh; +my $query = new CGI; -my $authid = $query->param('authid'); -my $index = $query->param('index'); -my $tagid = $query->param('tagid'); -my $authtypecode = &AUTHfind_authtypecode($authid); -my $tagslib = &AUTHgettagslib(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($authid); - warn "record auth :".$record->as_formatted; # open template -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "authorities/blinddetail-biblio-search.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {editauthorities => 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->field($auth_type->{auth_tag_to_report})) { - my @subfields_data; - my @subf=$field->subfields; - # loop through each subfield - my %result; - for my $i (0..$#subf) { - $subf[$i][0] = "@" unless $subf[$i][0]; - $result{$subf[$i][0]}.=$subf[$i][1]."|"; - } - foreach (keys %result) { - my %subfield_data; - chop $result{$_}; - $subfield_data{marc_value}=$result{$_}; - $subfield_data{marc_subfield}=$_; -# $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 and add to subfield loop + my %done_subfields; + for ( $field->subfields ) { + next if $_->[0] eq '9'; # $9 will be set with authid value + my $letter = $_->[0]; + $letter ||= '@'; + next if defined $done_subfields{$letter}; + my @values = $field->subfield($letter); + push @subfield_loop, {marc_subfield => $letter, marc_values => @values }; + $done_subfields{$letter} = 1; + } + + 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, - tagid => $tagid, - intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), - intranetstylesheet => C4::Context->preference("intranetstylesheet"), - IntranetNav => C4::Context->preference("IntranetNav"), - ); -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, + rancor => $index =~ /rancor$/, +); + + +output_html_with_http_headers $query, $cookie, $template->output;