3 # Copyright 2000-2002 Katipo Communications
5 # This file is part of Koha.
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
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.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 detail.pl : script to show an authority in MARC format
30 This script needs an authid
32 It shows the authority in a (nice) MARC format depending on authority MARC
43 use C4
::AuthoritiesMarc
;
53 sub build_tabs
($$$$$) {
54 my ( $template, $record, $dbh, $encoding,$input ) = @_;
60 # in this array, we will push all the 10 tabs
61 # to avoid having 10 tabs in the template : they will all be in the same BIG_LOOP
64 my @tab_data; # all tags to display
66 foreach my $used ( keys %$tagslib ){
67 push @tab_data,$used if not $seen{$used};
72 # loop through each tab 0 through 9
73 for ( my $tabloop = 0 ; $tabloop <= $max_num_tab ; $tabloop++ ) {
74 my @loop_data = (); #innerloop in the template.
76 foreach my $tag (sort @tab_data) {
80 # if MARC::Record is not empty =>use it as master loop, then add missing subfields that should be in the tab.
81 # if MARC::Record is empty => use tab as master loop.
82 if ( $record != -1 && ( $record->field($tag) || $tag eq '000' ) ) {
84 if ( $tag ne '000' ) {
85 @fields = $record->field($tag);
88 push @fields, MARC
::Field
->new('000', $record->leader()); # if tag == 000
90 # loop through each field
91 foreach my $field (@fields) {
93 if ($field->tag()<10) {
96 $tagslib->{ $field->tag() }->{ '@' }->{tab
}
98 next if ($tagslib->{$field->tag()}->{'@'}->{hidden
});
100 $subfield_data{marc_lib
}=$tagslib->{$field->tag()}->{'@'}->{lib
};
101 $subfield_data{marc_value
}=$field->data();
102 $subfield_data{marc_subfield
}='@';
103 $subfield_data{marc_tag
}=$field->tag();
104 push(@subfields_data, \
%subfield_data);
106 my @subf=$field->subfields;
107 # loop through each subfield
108 for my $i (0..$#subf) {
109 $subf[$i][0] = "@" unless $subf[$i][0];
112 $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{tab
}
115 if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }
118 $subfield_data{marc_lib
}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib
};
119 if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{isurl
}) {
120 $subfield_data{marc_value
}="<a href=\"$subf[$i][1]\">$subf[$i][1]</a>";
122 $subfield_data{marc_value
}=$subf[$i][1];
124 $subfield_data{short_desc
} = substr(
125 $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{lib
},
128 $subfield_data{long_desc
} =
129 $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{lib
};
130 $subfield_data{marc_subfield
}=$subf[$i][0];
131 $subfield_data{marc_tag
}=$field->tag();
132 push(@subfields_data, \
%subfield_data);
135 if ($#subfields_data>=0) {
137 $tag_data{tag
}=$field->tag(). ' '
138 . C4
::Koha
::display_marc_indicators
($field)
140 . $tagslib->{$field->tag()}->{lib
};
141 $tag_data{subfield
} = \
@subfields_data;
142 push (@loop_data, \
%tag_data);
147 if ( $#loop_data >= 0 ) {
150 innerloop
=> \
@loop_data,
154 $template->param( singletab
=> (scalar(@BIG_LOOP)==1), BIG_LOOP
=> \
@BIG_LOOP );
161 my $dbh=C4
::Context
->dbh;
164 my ($template, $loggedinuser, $cookie)
165 = get_template_and_user
({template_name
=> "authorities/detail.tmpl",
168 authnotrequired
=> 0,
169 flagsrequired
=> {catalogue
=> 1},
173 my $authid = $query->param('authid');
177 my $authtypecode = &GetAuthTypeCode
($authid);
178 $tagslib = &GetTagsLabels
(1,$authtypecode);
181 if (C4
::Context
->preference("AuthDisplayHierarchy")){
182 my $trees=BuildUnimarcHierarchies
($authid);
183 my @trees = split /;/,$trees ;
184 push @trees,$trees unless (@trees);
186 foreach my $tree (@trees){
187 my @tree=split /,/,$tree;
188 push @tree,$tree unless (@tree);
191 foreach my $element (@tree){
192 my $elementdata = GetAuthority
($element);
193 $record= $elementdata if ($authid==$element);
194 push @loophierarchy, BuildUnimarcHierarchy
($elementdata,"child".$cnt, $authid);
197 push @loophierarchies, { 'loopelement' =>\
@loophierarchy};
200 'displayhierarchy' =>C4
::Context
->preference("AuthDisplayHierarchy"),
201 'loophierarchies' =>\
@loophierarchies,
204 $record=GetAuthority
($authid);
206 my $count = CountUsage
($authid);
208 # find the marc field/subfield used in biblio by this authority
209 my $sth = $dbh->prepare("select distinct tagfield from marc_subfield_structure where authtypecode=?");
210 $sth->execute($authtypecode);
212 while (my ($tagfield) = $sth->fetchrow) {
213 $biblio_fields.= $tagfield."9,";
221 # loop through each tab 0 through 9
222 # for (my $tabloop = 0; $tabloop<=10;$tabloop++) {
223 # loop through each tag
224 build_tabs
($template, $record, $dbh,"",$query);
226 my $authtypes = getauthtypes
;
228 foreach my $thisauthtype (sort { $authtypes->{$b} cmp $authtypes->{$a} } keys %$authtypes) {
229 my %row =(value
=> $thisauthtype,
230 selected
=> $thisauthtype eq $authtypecode,
231 authtypetext
=> $authtypes->{$thisauthtype}{'authtypetext'},
233 push @authtypesloop, \
%row;
236 $template->param(authid
=> $authid,
238 biblio_fields
=> $biblio_fields,
239 authtypetext
=> $authtypes->{$authtypecode}{'authtypetext'},
240 authtypesloop
=> \
@authtypesloop,
242 output_html_with_http_headers
$query, $cookie, $template->output;