From 9c0de90f9d80ab8220e284baec2939c9e272efa8 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 8 Nov 2017 10:18:53 -0300 Subject: [PATCH] Bug 17602: Fix few minor QA issues --- opac/opac-recordedbooks-search.pl | 32 +++++++++++++++++--------------- 1 file changed, 17 insertions(+), 15 deletions(-) diff --git a/opac/opac-recordedbooks-search.pl b/opac/opac-recordedbooks-search.pl index ba1ef7f..4a390b3 100755 --- a/opac/opac-recordedbooks-search.pl +++ b/opac/opac-recordedbooks-search.pl @@ -17,26 +17,28 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; -use CGI qw ( -utf8 ); +use CGI qw( -utf8 ); -use C4::Auth qw(:DEFAULT); +use C4::Auth; use C4::Output; my $cgi = new CGI; -# Getting the template and auth -my ($template, $loggedinuser, $cookie) -= get_template_and_user({template_name => "opac-recordedbooks-search.tt", - query => $cgi, - type => "opac", - debug => 1, - authnotrequired => 1, - }); - -$template->{'VARS'}->{'q'} = $cgi->param('q'); -$template->{'VARS'}->{'limit'} = C4::Context->preference('OPACnumSearchResults'); +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "opac-recordedbooks-search.tt", + query => $cgi, + type => "opac", + debug => 1, + authnotrequired => 1, + } +); + +$template->param( + q => scalar $cgi->param('q'), + limit => C4::Context->preference('OPACnumSearchResults'), +); output_html_with_http_headers $cgi, $cookie, $template->output; -- 2.1.4