catalogue-home.pl

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