authorities/detail-biblio-search.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2000-2002 Katipo Communications
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 2 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along with
  17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  18 # Suite 330, Boston, MA  02111-1307 USA
  19
  20 =head1 NAME
  21
  22 etail.pl : script to show an authority in MARC format
  23
  24 =head1 SYNOPSIS
  25
  26
  27 =head1 DESCRIPTION
  28
  29 This script needs an authid
  30
  31 It shows the authority in a (nice) MARC format depending on authority MARC
  32 parameters tables.
  33
  34 =head1 FUNCTIONS
  35
  36 =over 2
  37
  38 =cut
  39
  40
  41 use strict;
  42 use C4::AuthoritiesMarc;
  43 use C4::Auth;
  44 use C4::Context;
  45 use C4::Interface::CGI::Output;
  46 use CGI;
  47 use C4::Search;
  48 use C4::Koha;
  49
  50 my $query=new CGI;
  51
  52 my $dbh=C4::Context->dbh;
  53
  54 my $authid = $query->param('authid');
  55 my $index = $query->param('index');
  56 my $authtypecode = &AUTHfind_authtypecode($dbh,$authid);
  57 my $tagslib = &AUTHgettagslib($dbh,1,$authtypecode);
  58
  59 my $record =XMLgetauthorityhash($dbh,$authid);
  60 # open template
  61 my ($template, $loggedinuser, $cookie)
  62                 = get_template_and_user({template_name => "authorities/detail-biblio-search.tmpl",
  63                              query => $query,
  64                              type => "intranet",
  65                              authnotrequired => 0,
  66                              flagsrequired => {catalogue => 1},
  67                              debug => 1,
  68                              });
  69
  70 # fill arrays
  71 my @loop_data =();
  72 my $tag;
  73 if ($xmlhash){
  74 # loop through each tab 0 through 9
  75 my $author=$xmlhash->{'datafield'};
  76 my $controlfields=$xmlhash->{'controlfield'};
  77 my $leader=$xmlhash->{'leader'};
  78 for (my $tabloop = 0; $tabloop<10;$tabloop++) {
  79 # loop through each tag
  80         my @loop_data =();
  81         my @subfields_data;
  82
  83         # deal with leader
  84         unless (($tagslib->{'000'}->{'@'}->{tab}  ne $tabloop)  || (substr($tagslib->{'000'}->{'@'}->{hidden},1,1)>0)) {
  85
  86                 my %subfield_data;
  87                 $subfield_data{marc_value}=$leader->[0] ;
  88                 push(@subfields_data, \%subfield_data);
  89                 my %tag_data;
  90                 $tag_data{tag}='000 -'. $tagslib->{'000'}->{lib};
  91                 my @tmp = @subfields_data;
  92                 $tag_data{subfield} = \@tmp;
  93                 push (@loop_data, \%tag_data);
  94                 undef @subfields_data;
  95         }
  96         ##Controlfields
  97
  98                  foreach my $control (@$controlfields){
  99                         my %subfield_data;
 100                         my %tag_data;
 101                         next if ($tagslib->{$control->{'tag'}}->{'@'}->{tab}  ne $tabloop);
 102                         next if (substr($tagslib->{$control->{'tag'}}->{'@'}->{hidden},1,1)>0);
 103                         $subfield_data{marc_value}=$control->{'content'} ;
 104                         push(@subfields_data, \%subfield_data);
 105                                 if (C4::Context->preference('hide_marc')) {
 106                                         $tag_data{tag}=$tagslib->{$control->{'tag'}}->{lib};
 107                                 } else {
 108                                         $tag_data{tag}=$control->{'tag'}.' -'. $tagslib->{$control->{'tag'}}->{lib};
 109                                 }
 110                         my @tmp = @subfields_data;
 111                         $tag_data{subfield} = \@tmp;
 112                         push (@loop_data, \%tag_data);
 113                         undef @subfields_data;
 114                 }
 115         my $previoustag;
 116         my %datatags;
 117         my $i=0;
 118         foreach my $data (@$author){
 119                 $datatags{$i++}=$data->{'tag'};
 120                  foreach my $subfield ( $data->{'subfield'}){
 121                      foreach my $code ( @$subfield){
 122                         next if ($tagslib->{$data->{'tag'}}->{$code->{'code'}}->{tab}  ne $tabloop);
 123                         next if (substr($tagslib->{$data->{'tag'}}->{$code->{'code'}}->{hidden},1,1)>0);
 124                         my %subfield_data;
 125                         my $value=$code->{'content'};
 126                         $subfield_data{marc_lib}=$tagslib->{$data->{'tag'}}->{$code->{'code'}}->{lib};
 127                         $subfield_data{link}=$tagslib->{$data->{'tag'}}->{$code->{'code'}}->{link};
 128                         if ($tagslib->{$data->{'tag'}}->{$code->{'code'}}->{isurl}) {
 129                                 $subfield_data{marc_value}="<a href=\"$value]\">$value</a>";
 130                         } else {
 131                         $subfield_data{marc_value}=get_authorised_value_desc($data->{'tag'}, $code->{'code'}, $value, '', $dbh);
 132                         }
 133                         $subfield_data{marc_subfield}=$code->{'code'};
 134                         $subfield_data{marc_tag}=$data->{'tag'};
 135                         push(@subfields_data, \%subfield_data);
 136                      }### $code
 137
 138
 139                 if ($#subfields_data>=0) {
 140                         my %tag_data;
 141                         if (($datatags{$i} eq $datatags{$i-1}) && (C4::Context->preference('LabelMARCView') eq 'economical')) {
 142                                 $tag_data{tag}="";
 143                         } else {
 144                                 if (C4::Context->preference('hide_marc')) {
 145                                         $tag_data{tag}=$tagslib->{$data->{'tag'}}->{lib};
 146                                 } else {
 147                                         $tag_data{tag}=$data->{'tag'}.' -'. $tagslib->{$data->{'tag'}}->{lib};
 148                                 }
 149                         }
 150                         my @tmp = @subfields_data;
 151                         $tag_data{subfield} = \@tmp;
 152                         push (@loop_data, \%tag_data);
 153                         undef @subfields_data;
 154                 }
 155               }### each $subfield
 156         }
 157
 158         $template->param($tabloop."XX" =>\@loop_data);
 159 }
 160
 161 my $authtypes = getauthtypes;
 162 my @authtypesloop;
 163 foreach my $thisauthtype (keys %$authtypes) {
 164         my $selected = 1 if $thisauthtype eq $authtypecode;
 165         my %row =(value => $thisauthtype,
 166                                 selected => $selected,
 167                                 authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
 168                         );
 169         push @authtypesloop, \%row;
 170 }
 171
 172 $template->param(authid => $authid,
 173                                 authtypesloop => \@authtypesloop, index => $index);
 174 }
 175 output_html_with_http_headers $query, $cookie, $template->output;
 176
 177 sub get_authorised_value_desc ($$$$$) {
 178    my($tag, $subfield, $value, $framework, $dbh) = @_;
 179
 180    #---- branch
 181     if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
 182        return getbranchname($value);
 183     }
 184
 185    #---- itemtypes
 186    if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "itemtypes" ) {
 187        return ItemType($value);
 188     }
 189
 190    #---- "true" authorized value
 191    my $category = $tagslib->{$tag}->{$subfield}->{'authorised_value'};
 192
 193    if ($category ne "") {
 194        my $sth = $dbh->prepare("select lib from authorised_values where category = ? and authorised_value = ?");
 195        $sth->execute($category, $value);
 196        my $data = $sth->fetchrow_hashref;
 197        return $data->{'lib'};
 198    } else {
 199        return $value; # if nothing is found return the original value
 200    }
 201 }