From aca3f8f0250ec576fab84f4439766f4aebf2b1b4 Mon Sep 17 00:00:00 2001 From: Fridolyn SOMERS Date: Thu, 30 Aug 2012 18:42:26 +0200 Subject: [PATCH] Bug 8705: Software error on help of main page Signed-off-by: Jonathan Druart --- help.pl | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/help.pl b/help.pl index 97f3462..075f319 100755 --- a/help.pl +++ b/help.pl @@ -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; - -- 1.7.10.4