9 my ($loggedinuser, $cookie, $sessionID) = checkauth
($query);
11 print $query->header(-cookie
=> $cookie);
14 print startmenu
('catalogue');
17 print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
19 open H
, "/usr/local/koha/intranet/htdocs/admin/index.html";
27 print endmenu
('catalogue');