catalogue-home.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use CGI;
   5 use C4::Auth;
   6 use C4::Output;
   7
   8 my $query = new CGI;
   9 my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
  10
  11 print $query->header(-cookie => $cookie);
  12
  13 print startpage();
  14 print startmenu('catalogue');
  15
  16 print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
  17
  18 my $classlist='';
  19 open C, "/usr/local/koha/intranet/htdocs/includes/cat-class-list.inc";
  20 while (<C>) {
  21     $classlist.=$_;
  22 }
  23 open H, "/usr/local/koha/intranet/htdocs/catalogue/index.html";
  24 while (<H>) {
  25     s/<!-- CLASSLIST -->/$classlist/;
  26     print $_;
  27 }
  28 close H;
  29
  30
  31 print endpage();
  32 print endmenu('catalogue');