From 13e77ca7c32bf9dd20fde00aee7b7a3d99f318bb Mon Sep 17 00:00:00 2001
From: Mason James <mtj@liblime.com>
Date: Mon, 7 Jan 2008 01:57:34 -0600
Subject: [PATCH] missing $query arg to themelanguage()

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 help.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/help.pl b/help.pl
index b2f7482663..39b93d17fb 100755
--- a/help.pl
+++ b/help.pl
@@ -32,10 +32,10 @@ sub gethelptemplate {
 
     my $htdocs;
     $htdocs = C4::Context->config('intrahtdocs');
-    my ( $theme, $lang ) = themelanguage( $htdocs, $tmplbase, "intranet" );
+    my ( $theme, $lang ) = themelanguage( $htdocs, $tmplbase, "intranet", $query );
     unless ( -e "$htdocs/$theme/$lang/$tmplbase" ) {
         $tmplbase = "modules/help/nohelp.tmpl";
-        ( $theme, $lang ) = themelanguage( $htdocs, $tmplbase, "intranet" );
+        ( $theme, $lang ) = themelanguage( $htdocs, $tmplbase, "intranet", $query );
     }
     my $template = HTML::Template->new(
         filename          => "$htdocs/$theme/$lang/$tmplbase",
-- 
2.39.5