another ' missing $query arg to themelanguage()' call

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/edithelp.pl b/edithelp.pl
index 0d20d7d..0ce65f9 100755 (executable)
--- 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";
     };