X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b8da8785c1b6d313518202acb307adfb50ebdb65..17a8e2bbdba1c715abdb106a0819cf913cdf6fb6:/SL/User.pm

diff --git a/SL/User.pm b/SL/User.pm
index a50ca9698..407f7934c 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -34,7 +34,7 @@
 
 package User;
 
-use strict;
+#use strict;
 
 use IO::File;
 use Fcntl qw(:seek);
@@ -173,6 +173,7 @@ sub login {
       my $menufile =
         $self->{"menustyle"} eq "v3" ? "menuv3.pl" :
         $self->{"menustyle"} eq "neu" ? "menunew.pl" :
+        $self->{"menustyle"} eq "js" ? "menujs.pl" :
         $self->{"menustyle"} eq "xml" ? "menuXML.pl" :
         "menu.pl";
 
@@ -553,6 +554,12 @@ sub process_query {
         $query .= $char;
       }
     }
+
+    # Insert a space at the end of each line so that queries split
+    # over multiple lines work properly.
+    if ($query ne '') {
+      $query .= @quote_chars ? "\n" : ' ';
+    }
   }
 
   if (ref($version_or_control) eq "HASH") {