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

diff --git a/SL/User.pm b/SL/User.pm
index a50ca9698..a213f622e 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);
@@ -553,6 +553,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") {