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 ($template, $loggedinuser, $cookie)
  12     = get_template_and_user({template_name => "catalogue/catalogue-home.tmpl",
  13                              query => $query,
  14                              type => "intranet",
  15                              authnotrequired => 0,
  16                              flagsrequired => {parameters => 1},
  17                              debug => 1,
  18                              });
  19
  20 my $classlist='';
  21 #open C, "$intranetdir/htdocs/includes/cat-class-list.inc";
  22 #while (<C>) {
  23 #   $classlist.=$_;
  24 #}
  25 $template->param(loggedinuser => $loggedinuser,
  26                                                 classlist => $classlist,
  27                                                 type => 'intranet',);
  28
  29 print $query->header(-cookie => $cookie), $template->output;