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);