@@ -, +, @@ --- opac/opac-recordedbooks-search.pl | 32 +++++++++++++++++--------------- 1 file changed, 17 insertions(+), 15 deletions(-) --- a/opac/opac-recordedbooks-search.pl +++ a/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; --