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

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

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

Log Message:
-----------
Changed fetchrow_hashref processing.

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 07:00:18 UTC (rev 35)
+++ trunk/treebase-core/src/main/perl/dump/sqldump	2009-06-11 07:02:58 UTC (rev 36)
@@ -123,15 +123,13 @@
 	my $dbh = get_handle();
 	my $sth = $dbh->prepare('SELECT * FROM SYSCAT.TABLES');
 	my @fetched_tables;
-	use Data::Dumper;
 	$sth->execute();
 	while ( my $row = $sth->fetchrow_hashref ) {
 		if ( $row->{'DEFINER'} =~ /TBASE2/ ) {
 			push @fetched_tables, $row->{'TABNAME'};
 		}
 	}
-	warn Dumper(\@fetched_tables);
-	#return @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.