|
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.
|