View | Details | Raw Unified | Return to bug 17602
Collapse All | Expand All

(-)a/opac/opac-recordedbooks-search.pl (-16 / +17 lines)
Lines 17-42 Link Here
17
# You should have received a copy of the GNU General Public License
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>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw( -utf8 );
24
23
25
use C4::Auth qw(:DEFAULT);
24
use C4::Auth;
26
use C4::Output;
25
use C4::Output;
27
26
28
my $cgi = new CGI;
27
my $cgi = new CGI;
29
28
30
# Getting the template and auth
29
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
31
my ($template, $loggedinuser, $cookie)
30
    {
32
= get_template_and_user({template_name => "opac-recordedbooks-search.tt",
31
        template_name   => "opac-recordedbooks-search.tt",
33
                                query => $cgi,
32
        query           => $cgi,
34
                                type => "opac",
33
        type            => "opac",
35
                                debug => 1,
34
        debug           => 1,
36
                                authnotrequired => 1,
35
        authnotrequired => 1,
37
                                });
36
    }
38
37
);
39
$template->{'VARS'}->{'q'} = $cgi->param('q');
38
40
$template->{'VARS'}->{'limit'} = C4::Context->preference('OPACnumSearchResults');
39
$template->param(
40
    q     => scalar $cgi->param('q'),
41
    limit => C4::Context->preference('OPACnumSearchResults'),
42
);
41
43
42
output_html_with_http_headers $cgi, $cookie, $template->output;
44
output_html_with_http_headers $cgi, $cookie, $template->output;
43
- 

Return to bug 17602