Lines 43-48
my $query = new CGI;
Link Here
|
43 |
our $refer = $query->param('url'); |
43 |
our $refer = $query->param('url'); |
44 |
$refer = $query->referer() if !$refer || $refer eq 'undefined'; |
44 |
$refer = $query->referer() if !$refer || $refer eq 'undefined'; |
45 |
my $from = _help_template_file_of_url($refer); |
45 |
my $from = _help_template_file_of_url($refer); |
|
|
46 |
my $htdocs = C4::Context->config('intrahtdocs'); |
47 |
|
48 |
# |
49 |
# checking that the help file exist, otherwise, display nohelp.tt page |
50 |
# |
51 |
my ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
52 |
unless ( -e "$htdocs/$theme/$lang/modules/$from" ) { |
53 |
$from = "help/nohelp.tt"; |
54 |
( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
55 |
} |
46 |
|
56 |
|
47 |
my $template = C4::Templates::gettemplate($from, 'intranet', $query); |
57 |
my $template = C4::Templates::gettemplate($from, 'intranet', $query); |
48 |
$template->param( referer => $refer ); |
58 |
$template->param( referer => $refer ); |
49 |
- |
|
|