3 # This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html)
5 # Copyright 2011 BibLibre
6 # Parts copyright 2012 Athens County Public Libraries
8 # This file is part of Koha.
10 # Koha is free software; you can redistribute it and/or modify it
11 # under the terms of the GNU General Public License as published by
12 # the Free Software Foundation; either version 3 of the License, or
13 # (at your option) any later version.
15 # Koha is distributed in the hope that it will be useful, but
16 # WITHOUT ANY WARRANTY; without even the implied warranty of
17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 # GNU General Public License for more details.
20 # You should have received a copy of the GNU General Public License
21 # along with Koha; if not, see <http://www.gnu.org/licenses>.
25 This script allows ajax call for dynamic authorities search
26 (used in auth_finder.pl)
36 use C4
::AuthoritiesMarc
;
37 use C4
::Auth qw
/check_cookie_auth/;
42 my ( $auth_status, $sessionID ) = check_cookie_auth
( $query->cookie('CGISESSID'), { catalogue
=> 1 } );
44 if ( $auth_status ne "ok" ) {
46 my $reply = CGI
->new("");
47 print $reply->header(-type
=> 'text/html');
51 my @value = $query->multi_param('term');
52 my $searchtype = $query->param('querytype');
53 my @marclist = ($searchtype);
54 my $authtypecode = $query->param('authtypecode');
55 my @and_or = $query->multi_param('and_or');
56 my @excluding = $query->multi_param('excluding');
57 my @operator = $query->multi_param('operator');
58 my $orderby = $query->param('orderby');
60 my $resultsperpage = 50;
63 my ( $results, $total ) = SearchAuthorities
( \
@marclist, \
@and_or, \
@excluding, \
@operator, \
@value, $startfrom * $resultsperpage, $resultsperpage, $authtypecode, $orderby );
65 my %used_summaries; # hash to avoid duplicates
67 foreach my $result (@
$results) {
68 my $authorized = $result->{'summary'}->{'authorized'};
72 ( $searchtype eq 'mainmainentry' )
79 $summary = nsb_clean
($summary);
80 # test if already added ignoring case
81 unless ( exists $used_summaries{ lc($summary) } ) {
82 push @summaries, { 'summary' => $summary };
83 $used_summaries{ lc($summary) } = 1;
87 output_with_http_headers
$query, undef, to_json
(\
@summaries, { utf8
=> 1 }), 'json';