5 use C4::Output; # contains gettemplate
12 # find the script that called the online help using the CGI referer()
13 my $refer = $query->referer();
14 # workaround for popup not functioning correctly in IE
15 my $referurl = $query->param('url');
17 $refer = $query->param('url');
20 $refer =~ /.*koha\/(.*)\.pl.*/;
21 my $from = "help/$1.tmpl";
23 my $template = gethelptemplate($from,"intranet");
25 output_html_with_http_headers $query, "", $template->output;
32 $htdocs = C4::Context->config('intrahtdocs');
33 my ($theme, $lang) = themelanguage($htdocs, $tmplbase, "intranet");
34 unless (-e "$htdocs/$theme/$lang/$tmplbase") {
35 $tmplbase="help/nohelp.tmpl";
36 ($theme, $lang) = themelanguage($htdocs, $tmplbase, "intranet");
38 my $template = HTML::Template->new(filename => "$htdocs/$theme/$lang/$tmplbase",
39 die_on_bad_params => 0,
41 path => ["$htdocs/$theme/$lang/includes"]);
43 # XXX temporary patch for Bug 182 for themelang
44 $template->param(themelang => '/intranet-tmpl' . "/$theme/$lang",
45 interface => '/intranet-tmpl',
48 intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
49 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
50 IntranetNav => C4::Context->preference("IntranetNav"),