From 9277b9e55d1c753f828e8a422e6185522aeb8974 Mon Sep 17 00:00:00 2001
From: Mason James <mason.james@liblime.com>
Date: Mon, 7 Jan 2008 16:32:30 -0600
Subject: [PATCH] another ' missing $query arg to themelanguage()' call

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 edithelp.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/edithelp.pl b/edithelp.pl
index 0d20d7d7d0..0ce65f9fca 100755
--- a/edithelp.pl
+++ b/edithelp.pl
@@ -97,7 +97,7 @@ elsif ( $type eq 'modify' ) {
     $referer =~ /.*koha\/(.*)\.pl.*/;
     my $from   = "help/$1.tmpl";
     my $htdocs = C4::Context->config('intrahtdocs');
-    my ( $theme, $lang ) = themelanguage( $htdocs, $from, "intranet" );
+    my ( $theme, $lang ) = themelanguage( $htdocs, $from, "intranet", $input );
     eval {
         open( INFILE, "$htdocs/$theme/$lang/modules/$from" ) || die "Can't open file";
     };
-- 
2.39.2