reports-home.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 use HTML::Template;
   9
  10 my $query = new CGI;
  11 my ($template, $loggedinuser, $cookie)
  12 = get_template_and_user({template_name => "reports/reports-home.tmpl",
  13                                 query => $query,
  14                                 type => "intranet",
  15                                 authnotrequired => 0,
  16                                 flagsrequired => {permissions => 1},
  17                                 debug => 1,
  18                                 });
  19 print $query->header(-cookie => $cookie),$template->output;