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

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

Revision: 52
          http://treebase.svn.sourceforge.net/treebase/?rev=52&view=rev
Author:   rvos
Date:     2009-06-15 23:31:27 +0000 (Mon, 15 Jun 2009)

Log Message:
-----------
Added single quotes around date and timestamp reformatted strings

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-15 23:24:14 UTC (rev 51)
+++ trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm	2009-06-15 23:31:27 UTC (rev 52)
@@ -76,14 +76,14 @@
 		    if ( m|(\d{1,2})/(\d{1,2})/(\d{4})\s+(\d{2}):(\d{2}):(\d{2})| ) {
 		        my ( $day, $month, $year, $hour, $minute, $second ) =
 		           ( $1,   $2,     $3,    $4,    $5,      $6      );
-		        $_ = "${year}-${month}-${day} ${hour}:${minute}:${second}";
+		        $_ = "'${year}-${month}-${day} ${hour}:${minute}:${second}'";
 		    }
 		}
 		elsif ($t eq 'DATE'){
 		    if ( m|(\d{1,2})/(\d{1,2})/(\d{4})| ) {
 		        my ( $day, $month, $year ) = 
 		           ( $1,   $2,     $3    );
-		        $_ = "${year}-${month}-${day}";
+		        $_ = "'${year}-${month}-${day}'";
 		    }
 		}
 		else {


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