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