#!/usr/bin/perl use strict; use CGI; use C4::Auth; use C4::Output; use C4::Context; use HTML::Template; my $query = new CGI; my ($loggedinuser, $cookie, $sessionID) = checkauth($query); my $template = gettemplate("reports/reports-home.tmpl"); $template->param(loggedinuser => $loggedinuser); print $query->header(-cookie => $cookie),$template->output;