From: <rv...@us...> - 2009-06-12 06:14:27
|
Revision: 47 http://treebase.svn.sourceforge.net/treebase/?rev=47&view=rev Author: rvos Date: 2009-06-12 06:14:21 +0000 (Fri, 12 Jun 2009) Log Message: ----------- Added CLOB handling Modified Paths: -------------- trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm Modified: trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm =================================================================== --- trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm 2009-06-12 05:19:59 UTC (rev 46) +++ trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm 2009-06-12 06:14:21 UTC (rev 47) @@ -65,7 +65,7 @@ local *_ = \$d[$i]; $_ = "NULL", next unless defined; - if ($t eq "CHAR" || $t eq "VARCHAR") { + if ($t eq "CHAR" || $t eq "VARCHAR" || $t eq 'CLOB') { s/'/''/g; $_ = "'$_'"; } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |