6 use C4::Output; # contains picktemplate
11 my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
14 open (KC, "/etc/koha.conf");
18 if (/(.*)\s*=\s*(.*)/) {
21 # Clean up white space at beginning and end
26 $configfile{$variable}=$value;
30 my $includes=$configfile{'includes'};
31 ($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
32 my $templatebase="catalogue/intranet-main.tmpl";
33 my $theme=picktemplate($includes, $templatebase);
35 my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
37 #$template->param(SITE_RESULTS => $sitearray);
38 print "Content-Type: text/html\n\n", $template->output;