Bug 23846: Add a check to the data inconsistencies script
[koha.git] / serials / subscription-bib-search.pl
1 #!/usr/bin/perl
2 # WARNING: 4-character tab stops here
3
4 # Copyright 2000-2002 Katipo Communications
5 # Parts Copyright 2010 Biblibre
6 #
7 # This file is part of Koha.
8 #
9 # Koha is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by
11 # the Free Software Foundation; either version 3 of the License, or
12 # (at your option) any later version.
13 #
14 # Koha is distributed in the hope that it will be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 # GNU General Public License for more details.
18 #
19 # You should have received a copy of the GNU General Public License
20 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21
22 =head1 NAME
23
24 subscription-bib-search.pl
25
26 =head1 DESCRIPTION
27
28 this script search among all existing subscriptions.
29
30 =head1 PARAMETERS
31
32 =over 4
33
34 =item op
35 op use to know the operation to do on this template.
36  * do_search : to search the subscription.
37
38 Note that if op = do_search there are some others params specific to the search :
39     marclist,and_or,excluding,operator,value
40
41 =item startfrom
42 to multipage gestion.
43
44
45 =back
46
47 =cut
48
49 use Modern::Perl;
50
51 use CGI qw ( -utf8 );
52 use C4::Koha;
53 use C4::Auth;
54 use C4::Context;
55 use C4::Output;
56 use C4::Search;
57 use C4::Biblio;
58 use C4::Debug;
59
60 use Koha::ItemTypes;
61 use Koha::SearchEngine;
62 use Koha::SearchEngine::Search;
63
64 my $input = new CGI;
65 my $op = $input->param('op') || q{};
66 my $dbh = C4::Context->dbh;
67
68 my $startfrom = $input->param('startfrom');
69 $startfrom = 0 unless $startfrom;
70 my ( $template, $loggedinuser, $cookie );
71 my $resultsperpage;
72
73 my $itype_or_itemtype =
74   ( C4::Context->preference("item-level_itypes") ) ? 'itype' : 'itemtype';
75
76 my $query = $input->param('q');
77
78 # don't run the search if no search term !
79 if ( $op eq "do_search" && $query ) {
80
81     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
82         {
83             template_name   => "serials/result.tt",
84             query           => $input,
85             type            => "intranet",
86             authnotrequired => 0,
87             flagsrequired   => { catalogue => 1, serials => '*' },
88             debug           => 1,
89         }
90     );
91
92     # add the limits if applicable
93     my $itemtypelimit = $input->param('itemtypelimit');
94     my $ccodelimit    = $input->param('ccodelimit');
95     my $op = C4::Context->preference('UseQueryParser') ? '&&' : 'and';
96     $query .= " $op $itype_or_itemtype:$itemtypelimit" if $itemtypelimit;
97     $query .= " $op ccode:$ccodelimit" if $ccodelimit;
98     $debug && warn $query;
99     $resultsperpage = $input->param('resultsperpage');
100     $resultsperpage = 20 if ( !defined $resultsperpage );
101
102     my $searcher = Koha::SearchEngine::Search->new({index => $Koha::SearchEngine::BIBLIOS_INDEX});
103     my ( $error, $marcrecords, $total_hits ) =
104       $searcher->simple_search_compat( $query, $startfrom * $resultsperpage, $resultsperpage );
105     my $total = 0;
106     if ( defined $marcrecords ) {
107         $total = scalar @{$marcrecords};
108     }
109
110     if ( defined $error ) {
111         $template->param( query_error => $error );
112         warn "error: " . $error;
113         output_html_with_http_headers $input, $cookie, $template->output;
114         exit;
115     }
116     my @results;
117
118     for ( my $i = 0 ; $i < $total ; $i++ ) {
119         my %resultsloop;
120         my $marcrecord = C4::Search::new_record_from_zebra( 'biblioserver', $marcrecords->[$i] );
121         my $biblio = TransformMarcToKoha( $marcrecord, '' );
122
123         #build the hash for the template.
124         $resultsloop{highlight}       = ( $i % 2 ) ? (1) : (0);
125         $resultsloop{title}           = $biblio->{'title'};
126         $resultsloop{subtitle}        = $biblio->{'subtitle'};
127         $resultsloop{medium}          = $biblio->{'medium'};
128         $resultsloop{part_number}     = $biblio->{'part_number'};
129         $resultsloop{part_name}       = $biblio->{'part_name'};
130         $resultsloop{biblionumber}    = $biblio->{'biblionumber'};
131         $resultsloop{author}          = $biblio->{'author'};
132         $resultsloop{publishercode}   = $biblio->{'publishercode'};
133         $resultsloop{publicationyear} = $biblio->{'publicationyear'} ? $biblio->{'publicationyear'} : $biblio->{'copyrightdate'};
134         $resultsloop{issn}            = $biblio->{'issn'};
135
136         push @results, \%resultsloop;
137     }
138
139     # multi page display gestion
140     my $displaynext = 0;
141     my $displayprev = $startfrom;
142     if ( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) {
143         $displaynext = 1;
144     }
145
146     my @numbers = ();
147
148     if ( $total_hits > $resultsperpage ) {
149         for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) {
150             if ( $i < 16 ) {
151                 my $highlight = 0;
152                 ( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 );
153                 push @numbers,
154                   {
155                     number     => $i,
156                     highlight  => $highlight,
157                     searchdata => \@results,
158                     startfrom  => ( $i - 1 )
159                   };
160             }
161         }
162     }
163
164     my $from = 0;
165     $from = $startfrom * $resultsperpage + 1 if ( $total_hits > 0 );
166     my $to;
167
168     if ( $total_hits < ( ( $startfrom + 1 ) * $resultsperpage ) ) {
169         $to = $total;
170     }
171     else {
172         $to = ( ( $startfrom + 1 ) * $resultsperpage );
173     }
174     $template->param(
175         query          => $query,
176         resultsloop    => \@results,
177         startfrom      => $startfrom,
178         displaynext    => $displaynext,
179         displayprev    => $displayprev,
180         resultsperpage => $resultsperpage,
181         startfromnext  => $startfrom + 1,
182         startfromprev  => $startfrom - 1,
183         total          => $total_hits,
184         from           => $from,
185         to             => $to,
186         numbers        => \@numbers,
187     );
188 }    # end of if ($op eq "do_search" & $query)
189 else {
190     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
191         {
192             template_name   => "serials/subscription-bib-search.tt",
193             query           => $input,
194             type            => "intranet",
195             authnotrequired => 0,
196             flagsrequired   => { catalogue => 1, serials => '*' },
197             debug           => 1,
198         }
199     );
200
201     # load the itemtypes
202     my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };
203     my @itemtypesloop;
204     # FIXME This is uselessly complex, the iterator should be send to the template
205     # FIXME The translated_description should be used
206     foreach my $thisitemtype (
207         sort {
208             $itemtypes->{$a}->{'description'}
209               cmp $itemtypes->{$b}->{'description'}
210         } keys %$itemtypes
211       )
212     {
213         my %row = (
214             code        => $thisitemtype,
215             description => $itemtypes->{$thisitemtype}->{'description'},
216         );
217         push @itemtypesloop, \%row;
218     }
219
220     # load Collection Codes
221     my $authvalues = GetAuthorisedValues('CCODE');
222     my @ccodesloop;
223     for my $thisauthvalue ( sort { $a->{'lib'} cmp $b->{'lib'} } @$authvalues )
224     {
225         my %row = (
226             code        => $thisauthvalue->{'authorised_value'},
227             description => $thisauthvalue->{'lib'},
228         );
229         push @ccodesloop, \%row;
230     }
231
232     $template->param(
233         itemtypeloop => \@itemtypesloop,
234         ccodeloop    => \@ccodesloop,
235         no_query     => $op eq "do_search" ? 1 : 0,
236     );
237 }
238
239 # Print the page
240 output_html_with_http_headers $input, $cookie, $template->output;
241
242 # Local Variables:
243 # tab-width: 4
244 # End: