From 64fe1c3d786b90164404b3507255345b0d2cf072 Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Sat, 29 Aug 1998 01:31:05 +0000
Subject: Debugging support -- if we get an SQL error, show the SQL command
 that failed.

---
 globals.tcl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/globals.tcl b/globals.tcl
index b30137c21..275a6a301 100644
--- a/globals.tcl
+++ b/globals.tcl
@@ -59,8 +59,12 @@ proc DebugConnect {} {
 
 
 proc SendSQL { str } {
-    global mysqlhandle
-    mysqlsel $mysqlhandle $str
+# puts $str
+    global mysqlhandle errorInfo
+    if {[catch {mysqlsel $mysqlhandle $str} errmsg]} {
+        puts $str
+        error "$errmsg - $str" $errorInfo
+    }
     return 0
 }
 
-- 
cgit v1.2.3-24-g4f1b