Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 62 lines (51 sloc) 1.933 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
#!/usr/bin/env perl

use strict;
use HTML::Template::Pro;

use C4::Output; # contains gettemplate
# use C4::Auth;
use Koha;
use C4::Context;
use CGI;

my $query = new CGI;

# find the script that called the online help using the CGI referer()
our $refer = $query->referer();

# workaround for popup not functioning correctly in IE
my $referurl = $query->param('url');
if ($referurl) {
    $refer = $query->param('url');
}

$refer =~ /.*koha\/(.*)\.pl.*/;
my $from = "modules/help/$1.tmpl";

my $template = gethelptemplate( $from, "intranet" );

# my $template
output_html_with_http_headers $query, "", $template->output;

sub gethelptemplate {
    my ($tmplbase) = @_;

    my $htdocs;
    $htdocs = C4::Context->config('intrahtdocs');
    my ( $theme, $lang ) = themelanguage( $htdocs, $tmplbase, "intranet", $query );
    unless ( -e "$htdocs/$theme/$lang/$tmplbase" ) {
        $tmplbase = "modules/help/nohelp.tmpl";
        ( $theme, $lang ) = themelanguage( $htdocs, $tmplbase, "intranet", $query );
    }
    my $template = HTML::Template::Pro->new(
        filename => "$htdocs/$theme/$lang/$tmplbase",
        die_on_bad_params => 0,
        global_vars => 1,
        path => ["$htdocs/$theme/$lang/includes"]
    );

    # XXX temporary patch for Bug 182 for themelang
    $template->param(
        themelang => '/intranet-tmpl' . "/$theme/$lang",
        interface => '/intranet-tmpl',
        theme => $theme,
        lang => $lang,
        intranetcolorstylesheet =>
          C4::Context->preference("intranetcolorstylesheet"),
        intranetstylesheet => C4::Context->preference("intranetstylesheet"),
        IntranetNav => C4::Context->preference("IntranetNav"),
yuipath => (C4::Context->preference("yuipath") eq "local"?"/intranet-tmpl/$theme/$lang/lib/yui":C4::Context->preference("yuipath")),
        referer => $refer,
    );
    return $template;
}
Something went wrong with that request. Please try again.