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('catalogue');
21 print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
23 open H, "$intranetdir/htdocs/admin/index.html";
31 print endmenu('catalogue');