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 use HTML::Template;
   9
  10 my $query = new CGI;
  11 my ($loggedinuser, $cookie, $sessionID) = checkauth($query,1);
  12 my $template = gettemplate("catalogue/catalogue-home.tmpl");
  13
  14 my $classlist='';
  15 #open C, "$intranetdir/htdocs/includes/cat-class-list.inc";
  16 #while (<C>) {
  17 #   $classlist.=$_;
  18 #}
  19 $template->param(loggedinuser => $loggedinuser,
  20                                                 classlist => $classlist,
  21                                                 opac => 0);
  22
  23 print $query->header(-cookie => $cookie), $template->output;