Bug 16996: (follow-up) Do not explode if mandatory fields are missing
[koha.git] / authorities / authorities-home.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
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
11 #
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20 use strict;
21 use warnings;
22
23 use CGI qw ( -utf8 );
24 use URI::Escape;
25 use C4::Auth;
26
27 use C4::Context;
28 use C4::Auth;
29 use C4::Output;
30 use C4::AuthoritiesMarc;
31 use C4::Acquisition;
32 use C4::Koha;
33 use C4::Biblio;
34 use C4::Search::History;
35
36 use Koha::Authority::Types;
37 use Koha::SearchEngine::Search;
38 use Koha::SearchEngine::QueryBuilder;
39
40 my $query = new CGI;
41 my $dbh   = C4::Context->dbh;
42 my $op           = $query->param('op')           || '';
43 my $authtypecode = $query->param('authtypecode') || '';
44 my $authid       = $query->param('authid')       || '';
45
46 my ( $template, $loggedinuser, $cookie );
47
48 my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypetext'] } );
49
50 if ( $op eq "delete" ) {
51     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
52         {
53             template_name   => "authorities/authorities-home.tt",
54             query           => $query,
55             type            => 'intranet',
56             authnotrequired => 0,
57             flagsrequired   => { catalogue => 1 },
58             debug           => 1,
59         }
60     );
61     &DelAuthority( $authid, 1 );
62
63     if ( $query->param('operator') ) {
64         # query contains search params so perform search
65         $op = "do_search";
66     }
67     else {
68         $op = '';
69     }
70 }
71 if ( $op eq "do_search" ) {
72     my $marclist  = $query->param('marclist')  || '';
73     my $and_or    = $query->param('and_or')    || '';
74     my $excluding = $query->param('excluding') || '';
75     my $operator  = $query->param('operator')  || '';
76     my $orderby   = $query->param('orderby')   || '';
77     my $value     = $query->param('value')     || '';
78
79     my $startfrom      = $query->param('startfrom')      || 1;
80     my $resultsperpage = $query->param('resultsperpage') || 20;
81
82     my $builder = Koha::SearchEngine::QueryBuilder->new(
83         { index => $Koha::SearchEngine::AUTHORITIES_INDEX } );
84     my $searcher = Koha::SearchEngine::Search->new(
85         { index => $Koha::SearchEngine::AUTHORITIES_INDEX } );
86     my $search_query = $builder->build_authorities_query_compat(
87         [$marclist], [$and_or], [$excluding], [$operator],
88         [$value], $authtypecode, $orderby
89     );
90     $startfrom = $startfrom // 0;
91     my ( $results, $total ) =
92       $searcher->search_auth_compat( $search_query, $startfrom,
93         $resultsperpage );
94     #my ( $results, $total ) = SearchAuthorities(
95     #    [$marclist],  [$and_or],
96     #    [$excluding], [$operator],
97     #    [$value], ( $startfrom - 1 ) * $resultsperpage,
98     #    $resultsperpage, $authtypecode,
99     #    $orderby
100     #);
101
102
103     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
104         {
105             template_name   => "authorities/searchresultlist.tt",
106             query           => $query,
107             type            => 'intranet',
108             authnotrequired => 0,
109             flagsrequired   => { catalogue => 1 },
110             debug           => 1,
111         }
112     );
113
114     # search history
115     if (C4::Context->preference('EnableSearchHistory')) {
116         if ( $startfrom == 1) {
117             my $path_info = $query->url(-path_info=>1);
118             my $query_cgi_history = $query->url(-query=>1);
119             $query_cgi_history =~ s/^$path_info\?//;
120             $query_cgi_history =~ s/;/&/g;
121
122             C4::Search::History::add({
123                 userid => $loggedinuser,
124                 sessionid => $query->cookie("CGISESSID"),
125                 query_desc => $value,
126                 query_cgi => $query_cgi_history,
127                 total => $total,
128                 type => "authority",
129             });
130         }
131     }
132
133     $template->param(
134         marclist       => $marclist,
135         and_or         => $and_or,
136         excluding      => $excluding,
137         operator       => $operator,
138         orderby        => $orderby,
139         value          => $value,
140         authtypecode   => $authtypecode,
141         startfrom      => $startfrom,
142         resultsperpage => $resultsperpage,
143     );
144
145     # we must get parameters once again. Because if there is a mainentry, it
146     # has been replaced by something else during the search, thus the links
147     # next/previous would not work anymore
148
149     # construction of the url of each page
150     my $value_url = uri_escape_utf8($value);
151     my $base_url = "authorities-home.pl?"
152       ."marclist=$marclist"
153       ."&amp;and_or=$and_or"
154       ."&amp;excluding=$excluding"
155       ."&amp;operator=$operator"
156       ."&amp;value=$value_url"
157       ."&amp;resultsperpage=$resultsperpage"
158       ."&amp;type=intranet"
159       ."&amp;op=do_search"
160       ."&amp;authtypecode=$authtypecode"
161       ."&amp;orderby=$orderby";
162
163     my $from = ( $startfrom - 1 ) * $resultsperpage + 1;
164     my $to;
165     if ( !defined $total ) {
166         $total = 0;
167     }
168
169     if ( $total < $startfrom * $resultsperpage ) {
170         $to = $total;
171     }
172     else {
173         $to = $startfrom * $resultsperpage;
174     }
175
176     $template->param( result => $results ) if $results;
177
178     $template->param(
179         pagination_bar => pagination_bar(
180             $base_url,  int( $total / $resultsperpage ) + 1,
181             $startfrom, 'startfrom'
182         ),
183         total     => $total,
184         from      => $from,
185         to        => $to,
186         isEDITORS => $authtypecode eq 'EDITORS',
187     );
188
189 }
190 if ( $op eq '' ) {
191     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
192         {
193             template_name   => "authorities/authorities-home.tt",
194             query           => $query,
195             type            => 'intranet',
196             authnotrequired => 0,
197             flagsrequired   => { catalogue => 1 },
198             debug           => 1,
199         }
200     );
201
202 }
203
204 $template->param(
205     authority_types => $authority_types,
206     op            => $op,
207 );
208
209 $template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");
210
211 # Print the page
212 output_html_with_http_headers $query, $cookie, $template->output;