Debugcode entfernt.

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index a50ca969804d812c5462e8b20dff806bd9dbadb8..a213f622ebe6b9c93fe0237814ee0b424d12b3a4 100644 (file)
--- 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") {