gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 8705: Software error on help of main page 

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
Fridolyn SOMERS 2012-08-30 18:42:26 +02:00 committed by Paul Poulain
parent cf97a72abf
commit 46abff69ba
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
help.pl
View File

@ -25,19 +25,26 @@ use C4::Output;
use C4::Context;
use CGI;
sub _help_template_file_of_url {
my $url = shift;
my $file;
if ($url =~ /koha\/(.*)\.pl/) {
$file = $1;
} else {
$file = 'mainpage';
}
$file =~ s/[^a-zA-Z0-9_\-\/]*//g;
return "help/$file.tt";
}
my $query = new CGI;
# find the script that called the online help using the CGI referer()
our $refer = $query->param('url');
$refer = $query->referer() if !$refer || $refer eq 'undefined';
$refer =~ /koha\/(.*)\.pl/;
my $file = $1;
$file =~ s/[^a-zA-Z0-9_\-\/]*//g;
my $from = "help/$file.tt";
my $from = _help_template_file_of_url($refer);
my $template = C4::Templates::gettemplate($from, 'intranet', $query);
$template->param( referer => $refer );
output_html_with_http_headers $query, "", $template->output;