admin/admin-home.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use CGI;
   5 use C4::Auth;
   6 use C4::Interface::CGI::Output;
   7
   8
   9 my $query = new CGI;
  10 my ($template, $loggedinuser, $cookie)
  11     = get_template_and_user({template_name => "admin/admin-home.tmpl",
  12                              query => $query,
  13                              type => "intranet",
  14                              authnotrequired => 0,
  15                              flagsrequired => {parameters => 1, management => 1, tools => 1},
  16                              debug => 1,
  17                              });
  18
  19 output_html_with_http_headers $query, $cookie, $template->output;