Item12018: fix bad code that snuck in during perltidy revert - trunca…

…ted SQL query to just be the first line (SVN 14749)

git-svn-id: http://svn.foswiki.org/trunk/SqlPlugin@15258 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

lib/Foswiki/Plugins/SqlPlugin/Core.pm

@@ -114,7 +114,7 @@ sub handleSQL {
     $theQuery = entityDecode($theQuery);
   }
 
-  #writeDebug("called handleSQL(" . $theQuery . ")");
+  #writeDebug("called handleSQL() - " . $theQuery);
 
   my @bindVals = split '\s*,\s*', $theParams;
 
@@ -133,9 +133,7 @@ sub handleSQL {
     checkAccess($theDatabase, $theQuery);
 
     $connection->connect();
-    $theQuery =~ m/(.*)/;
-    $theQuery = $1;
-
+
     my $sth = $connection->{db}->prepare_cached($theQuery) or
       throw Error::Simple("Can't prepare cmd '$theQuery': ".$connection->{db}->errstr);
 
@@ -160,6 +158,7 @@ sub handleSQL {
   } catch Error::Simple with {
     my $msg = shift->{-text};
     $msg =~ s/ at .*?$//gs;
+    $msg .= "<br>for query $theQuery";
     $result = inlineError($msg);
   };