Altered to use the new themelanguage method in Output.pm

This commit is contained in:
finlayt 2002-09-11 03:56:26 +00:00
parent a0de95edbd
commit 82889d8e31
1 changed files with 4 additions and 5 deletions

View File

@ -27,12 +27,11 @@ while (<KC>) {
}
}
my $includes=$configfile{'includes'};
($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
my $templatebase="opac/opac-main.tmpl";
my $theme=picktemplate($includes, $templatebase);
my $htdocs=$configfile{'opachtdocs'};
my $templatebase="opac-main.tmpl";
my ($theme, $lang)=themelanguage($htdocs, $templatebase);
my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
my $template = HTML::Template->new(filename => "$htdocs/$theme/$lang/$templatebase", die_on_bad_params => 0, path => ["$htdocs/includes"]);
#$template->param(SITE_RESULTS => $sitearray);
print "Content-Type: text/html\n\n", $template->output;