|
Lines 25-43
use C4::Output;
Link Here
|
| 25 |
use C4::Context; |
25 |
use C4::Context; |
| 26 |
use CGI; |
26 |
use CGI; |
| 27 |
|
27 |
|
|
|
28 |
sub _help_template_file_of_url { |
| 29 |
my $url = shift; |
| 30 |
my $file; |
| 31 |
if ($url =~ /koha\/(.*)\.pl/) { |
| 32 |
$file = $1; |
| 33 |
} else { |
| 34 |
$file = 'mainpage'; |
| 35 |
} |
| 36 |
$file =~ s/[^a-zA-Z0-9_\-\/]*//g; |
| 37 |
return "help/$file.tt"; |
| 38 |
} |
| 39 |
|
| 28 |
my $query = new CGI; |
40 |
my $query = new CGI; |
| 29 |
|
41 |
|
| 30 |
# find the script that called the online help using the CGI referer() |
42 |
# find the script that called the online help using the CGI referer() |
| 31 |
our $refer = $query->param('url'); |
43 |
our $refer = $query->param('url'); |
| 32 |
$refer = $query->referer() if !$refer || $refer eq 'undefined'; |
44 |
$refer = $query->referer() if !$refer || $refer eq 'undefined'; |
| 33 |
|
45 |
my $from = _help_template_file_of_url($refer); |
| 34 |
$refer =~ /koha\/(.*)\.pl/; |
|
|
| 35 |
my $file = $1; |
| 36 |
$file =~ s/[^a-zA-Z0-9_\-\/]*//g; |
| 37 |
my $from = "help/$file.tt"; |
| 38 |
|
46 |
|
| 39 |
my $template = C4::Templates::gettemplate($from, 'intranet', $query); |
47 |
my $template = C4::Templates::gettemplate($from, 'intranet', $query); |
| 40 |
$template->param( referer => $refer ); |
48 |
$template->param( referer => $refer ); |
| 41 |
|
49 |
|
| 42 |
output_html_with_http_headers $query, "", $template->output; |
50 |
output_html_with_http_headers $query, "", $template->output; |
| 43 |
|
|
|
| 44 |
- |