Bug 16660: Moved Opac Supression filtering from opac-search.pl to Zebra::QueryBuilder
[koha.git] / Koha / SearchEngine / Zebra / QueryBuilder.pm
1 package Koha::SearchEngine::Zebra::QueryBuilder;
2
3 # This file is part of Koha.
4 #
5 # Copyright 2012 BibLibre
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 Modern::Perl;
21
22 use base qw(Class::Accessor);
23
24 use C4::Search;
25 use C4::AuthoritiesMarc;
26
27 sub build_query {
28     shift;
29     C4::Search::buildQuery @_;
30 }
31
32 sub build_query_compat {
33     my $self = shift;
34     my ($operators, $operands, $indexes, $limits, $sort_by, $scan, $lang, $params) = @_;
35
36     my ($error,$query,$simple_query,$query_cgi,$query_desc,$limit,$limit_cgi,$limit_desc,$query_type)
37       = $self->build_query(@_);
38
39     # add OPAC 'hidelostitems'
40     #if (C4::Context->preference('hidelostitems') == 1) {
41     #    # either lost ge 0 or no value in the lost register
42     #    $query ="($query) and ( (lost,st-numeric <= 0) or ( allrecords,AlwaysMatches='' not lost,AlwaysMatches='') )";
43     #}
44     #
45     # add OPAC suppression - requires at least one item indexed with Suppress
46     if ($params->{suppress}) {
47         if ( $query_type eq 'pqf' ) {
48             #$query = "($query) && -(suppress:1)"; #QP syntax
49             $query = '@not '.$query.' @attr 14=1 @attr 1=9011 1'; #PQF syntax
50         } else {
51             $query = "($query) not Suppress=1";
52         }
53     }
54
55     return ($error,$query,$simple_query,$query_cgi,$query_desc,$limit,$limit_cgi,$limit_desc,$query_type);
56 }
57
58 sub build_authorities_query {
59     shift;
60     return {
61         marclist     => $_[0],
62         and_or       => $_[1],
63         excluding    => $_[2],
64         operator     => $_[3],
65         value        => $_[4],
66         authtypecode => $_[5],
67         orderby      => $_[6],
68     };
69 }
70
71 sub build_authorities_query_compat {
72     # Pass straight through as well
73     build_authorities_query(@_);
74 }
75
76 1;