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

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

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

Log Message:
-----------
Added check to make sure we're reading the right table type.

Modified Paths:
--------------
    trunk/treebase-core/src/main/perl/dump/sqldump

Modified: trunk/treebase-core/src/main/perl/dump/sqldump
===================================================================
--- trunk/treebase-core/src/main/perl/dump/sqldump	2009-06-11 06:32:49 UTC (rev 29)
+++ trunk/treebase-core/src/main/perl/dump/sqldump	2009-06-11 06:40:36 UTC (rev 30)
@@ -79,7 +79,7 @@
     $dumper->set_output($outhandle);
     
     if ( $with_creates ) {
-    	
+    	print $outhandle "CREATE TABLE $table;\n";    	
     }
     
     if ( $with_inserts ) {
@@ -127,9 +127,10 @@
 	$sth->execute();
 	while ( my $row = $sth->fetchrow_hashref ) {
 		push @fetched_tables, $row->{'TABNAME'};
-		warn Dumper($row);
+		warn Dumper($row) if $row->{'TABNAME'} eq 'XMLOBJECTS'; 
 	}
-	warn Dumper(\@fetched_tables);
+	#warn Dumper(\@fetched_tables);
+	return @fetched_tables;
 }
 
 sub get_handle {


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