# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
-use URI::Escape;
-use C4::Auth;
+use URI::Escape qw( uri_escape_utf8 );
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::AuthoritiesMarc;
+use C4::Output qw( pagination_bar output_html_with_http_headers );
use C4::Koha;
use C4::Search::History;
use Koha::SearchEngine::Search;
use Koha::SearchEngine::QueryBuilder;
-my $query = new CGI;
+my $query = CGI->new;
my $op = $query->param('op') || '';
my $authtypecode = $query->param('authtypecode') || '';
my $dbh = C4::Context->dbh;
my @value = $query->multi_param('value');
$value[0] ||= q||;
- my @tags;
my $builder = Koha::SearchEngine::QueryBuilder->new(
{ index => $Koha::SearchEngine::AUTHORITIES_INDEX } );
my $searcher = Koha::SearchEngine::Search->new(
query => $query,
type => 'opac',
authnotrequired => 1,
- debug => 1,
}
);
+ $template->param( search_query => $search_query ) if C4::Context->preference('DumpSearchQueryTemplate');
# multi page display gestion
my $value_url = uri_escape_utf8($value[0]);
query => $query,
type => 'opac',
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);