You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2017/10/24 22:48:35 UTC
svn commit: r1813239 - in /tcl/rivet/branches/2.3: ChangeLog
rivet/packages/dio/dio_Mysql.tcl
Author: mxmanghi
Date: Tue Oct 24 22:48:35 2017
New Revision: 1813239
URL: http://svn.apache.org/viewvc?rev=1813239&view=rev
Log:
handling special field NULL in Mysql
Modified:
tcl/rivet/branches/2.3/ChangeLog
tcl/rivet/branches/2.3/rivet/packages/dio/dio_Mysql.tcl
Modified: tcl/rivet/branches/2.3/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/ChangeLog?rev=1813239&r1=1813238&r2=1813239&view=diff
==============================================================================
--- tcl/rivet/branches/2.3/ChangeLog (original)
+++ tcl/rivet/branches/2.3/ChangeLog Tue Oct 24 22:48:35 2017
@@ -1,3 +1,6 @@
+2017-10-24 Massimo Manghi <mx...@apache.org>
+ * rivet/packages/dio/dio_Mysql.tcl: handling special field NULL
+
2017-10-13 Massimo Manghi <mx...@apache.org>
* rivet/init.tcl.in: Following Jeff Lawson's suggestion we check
if init.tcl is loaded from within mod_rivet. If we're not running
Modified: tcl/rivet/branches/2.3/rivet/packages/dio/dio_Mysql.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/rivet/packages/dio/dio_Mysql.tcl?rev=1813239&r1=1813238&r2=1813239&view=diff
==============================================================================
--- tcl/rivet/branches/2.3/rivet/packages/dio/dio_Mysql.tcl (original)
+++ tcl/rivet/branches/2.3/rivet/packages/dio/dio_Mysql.tcl Tue Oct 24 22:48:35 2017
@@ -16,7 +16,7 @@
# $Id$
-package provide dio_Mysql 0.2
+package provide dio_Mysql 0.3
namespace eval DIO {
::itcl::class Mysql {
@@ -170,6 +170,13 @@ namespace eval DIO {
}
}
}
+ NULL {
+ if {[::string toupper $val] == "NULL"} {
+ return $val
+ } else {
+ return "'[quote $val]'"
+ }
+ }
default {
# no special code for that type!!
return "'[quote $val]'"
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org