Adding KohaAdminEmailAddress to template
[koha.git] / koha-tmpl / errors / 401.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 use HTML::Template;
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/401.tmpl",
15                                 query => $query,
16                                 type => "intranet",
17                                 authnotrequired => 0,
18                                 flagsrequired => {catalogue => 1},
19                                 debug => 1,
20                                 });
21 $template->param( admin => $admin);                             
22 output_html_with_http_headers $query, $cookie, $template->output;