some (minor, functionnaly speaking) bugfixes
[koha.git] / koha-tmpl / errors / 403.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use CGI;
5 use C4::Auth;
6 use C4::Output;
7 use C4::Context;
8
9
10 my $query = new CGI;
11 my $admin = C4::Context->preference('KohaAdminEmailAddress');
12 my ($template, $loggedinuser, $cookie)
13 = get_template_and_user({template_name => "errors/403.tmpl",
14                                 query => $query,
15                                 type => "intranet",
16                                 authnotrequired => 1,
17                                 debug => 1,
18                                 });
19 $template->param( admin => $admin);                             
20 output_html_with_http_headers $query, $cookie, $template->output;