Menu
▾
▴
[Treebase-guts] SF.net SVN: treebase:[38] trunk/treebase-core/src/main/perl/dump/sqldump
|
From: <rv...@us...> - 2009-06-11 07:37:06
|
Revision: 38
http://treebase.svn.sourceforge.net/treebase/?rev=38&view=rev
Author: rvos
Date: 2009-06-11 07:37:05 +0000 (Thu, 11 Jun 2009)
Log Message:
-----------
Changed SQL for fetching all tables
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:33:41 UTC (rev 37)
+++ trunk/treebase-core/src/main/perl/dump/sqldump 2009-06-11 07:37:05 UTC (rev 38)
@@ -126,7 +126,7 @@
sub get_all_tables {
my $schema_to_analyze = shift || $schema;
my $dbh = get_handle();
- my $sth = $dbh->prepare(sprintf('list tables for schema %s', $schema_to_analyze));
+ my $sth = $dbh->prepare(sprintf(q{select tabname from syscat.tables where tabschema = '%s'}, $schema_to_analyze));
my @fetched_tables;
$sth->execute();
while ( my $row = $sth->fetchrow_hashref ) {
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
