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
  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 => 1,
  18                                 debug => 1,
  19                                 });
  20 $template->param( admin => $admin);
  21 output_html_with_http_headers $query, $cookie, $template->output;