version 1.37, 2007/04/11 22:37:17
|
version 1.38, 2009/02/01 22:03:42
|
Line 1095 Returns undef on error.
|
Line 1095 Returns undef on error.
|
=cut |
=cut |
|
|
########################################### |
########################################### |
|
|
|
########## Show-Tables Cache |
|
my $have_read_tables = 0; |
|
my $dbh_sth; |
|
########## |
|
|
sub tables_in_db { |
sub tables_in_db { |
return undef if (!defined(&connect_to_db())); |
return undef if (!defined(&connect_to_db())); |
my $sth=$dbh->prepare('SHOW TABLES'); |
|
$sth->execute(); |
########## Show-Tables Cache |
$sth->execute(); |
if(!$have_read_tables) { |
my $aref = $sth->fetchall_arrayref; |
$dbh_sth=$dbh->prepare('SHOW TABLES'); |
if ($sth->err()) { |
$have_read_tables = 1; |
|
} |
|
$dbh_sth->execute(); |
|
#$dbh_sth->execute(); # Removed strange execute - from release 119 |
|
########## |
|
|
|
my $aref = $dbh_sth->fetchall_arrayref; |
|
if ($dbh_sth->err()) { |
$errorstring = |
$errorstring = |
"$dbh ATTEMPTED:\n".'fetchall_arrayref after SHOW TABLES'. |
"$dbh ATTEMPTED:\n".'fetchall_arrayref after SHOW TABLES'. |
"\nRESULTING ERROR:\n".$sth->errstr; |
"\nRESULTING ERROR:\n".$dbh_sth->errstr; |
return undef; |
return undef; |
} |
} |
my @table_list; |
my @table_list; |