9 my $configfile=configfile
();
10 my $intranetdir=$configfile->{'intranetdir'};
13 my ($loggedinuser, $cookie, $sessionID) = checkauth
($query);
15 print $query->header(-cookie
=> $cookie);
18 print startmenu
('report');
20 print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
22 open H
, "$intranetdir/htdocs/reports/index.html";
30 print endmenu
('report');