diff options
| -rw-r--r-- | globals.tcl | 8 |
1 files 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 } |