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.
29 use C4::AuthoritiesMarc;
31 use C4::Koha; # XXX subfield_is_koha_internal_p
35 my $op = $query->param('op');
37 my $authtypecode = $query->param('authtypecode');
38 $authtypecode ||= q{};
39 my $dbh = C4::Context->dbh;
41 my $authid = $query->param('authid');
42 my ( $template, $loggedinuser, $cookie );
44 my $authtypes = getauthtypes;
46 foreach my $thisauthtype ( sort { $authtypes->{$a}{'authtypetext'} cmp $authtypes->{$b}{'authtypetext'} }
50 value => $thisauthtype,
51 selected => $thisauthtype eq $authtypecode,
52 authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
54 push @authtypesloop, \%row;
57 if ( $op eq "delete" ) {
58 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
60 template_name => "authorities/authorities-home.tmpl",
64 flagsrequired => { catalogue => 1 },
68 &DelAuthority( $authid, 1 );
72 if ( $op eq "do_search" ) {
73 my @marclist = $query->param('marclist');
74 my @and_or = $query->param('and_or');
75 my @excluding = $query->param('excluding');
76 my @operator = $query->param('operator');
77 my $orderby = $query->param('orderby');
78 my @value = $query->param('value');
80 my $startfrom = $query->param('startfrom') || 1;
81 my $resultsperpage = $query->param('resultsperpage') || 20;
83 my ( $results, $total ) =
84 SearchAuthorities( \@marclist, \@and_or, \@excluding, \@operator, \@value,
85 ( $startfrom - 1 ) * $resultsperpage,
86 $resultsperpage, $authtypecode, $orderby );
88 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
90 template_name => "authorities/searchresultlist.tmpl",
94 flagsrequired => { catalogue => 1 },
100 marclist => $query->param('marclist'),
101 and_or => $query->param('and_or'),
102 excluding => $query->param('excluding'),
103 operator => $query->param('operator'),
104 orderby => $query->param('orderby'),
105 value => $query->param('value'),
106 authtypecode => $query->param('authtypecode'),
107 startfrom => $startfrom,
108 resultsperpage => $resultsperpage,
113 # we must get parameters once again. Because if there is a mainentry, it
114 # has been replaced by something else during the search, thus the links
115 # next/previous would not work anymore
116 my @marclist_ini = $query->param('marclist');
117 for ( my $i = 0 ; $i <= $#marclist ; $i++ ) {
119 push @field_data, { term => "marclist", val => $marclist_ini[$i] };
120 if (!defined $and_or[$i]) {
123 push @field_data, { term => "and_or", val => $and_or[$i] };
124 if (!defined $excluding[$i]) {
125 $excluding[$i] = q{};
127 push @field_data, { term => "excluding", val => $excluding[$i] };
128 push @field_data, { term => "operator", val => $operator[$i] };
129 push @field_data, { term => "value", val => $value[$i] };
133 # construction of the url of each page
135 'authorities-home.pl?'
136 . join( '&', map { $_->{term} . '=' . $_->{val} } @field_data )
140 map { $_->{term} . '=' . $_->{val} } (
141 { term => 'resultsperpage', val => $resultsperpage },
142 { term => 'type', val => 'intranet' },
143 { term => 'op', val => 'do_search' },
144 { term => 'authtypecode', val => $authtypecode },
145 { term => 'orderby', val => $orderby },
149 my $from = ( $startfrom - 1 ) * $resultsperpage + 1;
151 if (!defined $total) {
155 if ( $total < $startfrom * $resultsperpage ) {
159 $to = $startfrom * $resultsperpage;
162 $template->param( result => $results ) if $results;
165 pagination_bar => pagination_bar(
166 $base_url, int( $total / $resultsperpage ) + 1,
167 $startfrom, 'startfrom'
172 isEDITORS => $authtypecode eq 'EDITORS',
177 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
179 template_name => "authorities/authorities-home.tmpl",
182 authnotrequired => 0,
183 flagsrequired => { catalogue => 1 },
191 authtypesloop => \@authtypesloop,
194 $template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");
197 output_html_with_http_headers $query, $cookie, $template->output;