[Treebase-guts] SF.net SVN: treebase:[42] trunk/treebase-core/src/main/perl/lib/CIPRES/ TreeBase/RecDumper.pm

[<rv...@us...>]

Revision: 42
          http://treebase.svn.sourceforge.net/treebase/?rev=42&view=rev
Author:   rvos
Date:     2009-06-11 08:37:48 +0000 (Thu, 11 Jun 2009)

Log Message:
-----------
Added pg upper case escaping

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-11 08:21:24 UTC (rev 41)
+++ trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm	2009-06-11 08:37:48 UTC (rev 42)
@@ -12,7 +12,7 @@
     my $self = { 
     	'F' => \@fieldnames, 
     	'X' => $X, 
-    	'N' => $tn, 
+    	'N' => '"'.$tn.'"', 
     	'T' => $ct 
     };
     bless $self => $class;
@@ -27,7 +27,7 @@
 
 sub _initialize {
     my $self = shift;
-    my $fieldlist = join ", ", @{$self->{F}}; 
+    my $fieldlist = join ", ", map { "\"$_\"" } @{$self->{F}}; 
     # Need to escape certain field names here
     $self->{'PREFIX'} = qq{INSERT INTO $self->{N} ($fieldlist) VALUES (};
     $self->{'SUFFIX'} = qq{);\n}; # XXX added closing semicolon


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.