[Treebase-guts] SF.net SVN: treebase:[41] trunk/treebase-core/src/main/perl

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

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

Log Message:
-----------
Factored CREATE statement writing out to RecDumper.pm

Modified Paths:
--------------
    trunk/treebase-core/src/main/perl/dump/sqldump
    trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm

Modified: trunk/treebase-core/src/main/perl/dump/sqldump
===================================================================
--- trunk/treebase-core/src/main/perl/dump/sqldump	2009-06-11 07:54:14 UTC (rev 40)
+++ trunk/treebase-core/src/main/perl/dump/sqldump	2009-06-11 08:21:24 UTC (rev 41)
@@ -83,8 +83,7 @@
 	    
 	    # write create table statements
 	    if ( $with_creates ) {
-	    	my $uc_table = uc $table;
-	    	print $outhandle "CREATE TABLE $uc_table;\n";    	
+	    	$dumper->dump_create;   	
 	    }
 	    
 	    # write insert statements

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 07:54:14 UTC (rev 40)
+++ trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/RecDumper.pm	2009-06-11 08:21:24 UTC (rev 41)
@@ -50,6 +50,13 @@
 	return $insert;
 }
 
+# Format metadata into a create statement and return (or write) the result
+sub dump_create {
+	my $create = 'CREATE TABLE ' . $self->{'N'} . ";\n";
+	return print {$self->{'OUT'}} $create if $self->{'OUT'};
+	return $create;		
+}
+
 # XXX UNFINISHED !!!!
 sub quote_data {
     my $self = shift;


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