Bug 26265: (QA follow-up) Remove g option from regex, add few dirs

[koha-equinox.git] / help.pl

diff --git a/help.pl b/help.pl
index df94649..b39c577 100755 (executable)
--- a/help.pl
+++ b/help.pl
@@ -20,15 +20,28 @@
 use Modern::Perl;
 use CGI qw ( -utf8 );
 
+use C4::Auth;
 use C4::Context;
 use Koha::Manual;
 
 my $query = new CGI;
 
+# We need to call get_template_and_user to let it does the job correctly
+# for the language
+my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
+    {
+        template_name   => "intranet-main.tt", # Just a valid template path
+        query           => $query,
+        type            => "intranet",
+        authnotrequired => 1,
+    }
+);
+
 # 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';
 
-my $manual_url = Koha::Manual::get_url($refer);
+my $language = C4::Languages::getlanguage( $query );
+my $manual_url = Koha::Manual::get_url($refer, $language);
 
 print $query->redirect($manual_url);