loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.18, 2003/12/27 16:58:36	version 1.19, 2004/03/03 17:19:06
Line 932 sub tables_in_db {	Line 932 sub tables_in_db {
return undef if (!defined(&connect_to_db()));	return undef if (!defined(&connect_to_db()));
my $sth=$dbh->prepare('SHOW TABLES');	my $sth=$dbh->prepare('SHOW TABLES');
$sth->execute();	$sth->execute();
if ($sth->err) {	$sth->execute();
$errorstring = "$dbh ATTEMPTED:\n".'SHOW TABLES'.	my $aref = $sth->fetchall_arrayref;
	if ($sth->err()) {
	$errorstring =
	"$dbh ATTEMPTED:\n".'fetchall_arrayref after SHOW TABLES'.
"\nRESULTING ERROR:\n".$sth->errstr;	"\nRESULTING ERROR:\n".$sth->errstr;
return undef;	return undef;
}	}
my $aref = $sth->fetchall_arrayref;	my @table_list;
my @table_list=();
foreach (@$aref) {	foreach (@$aref) {
push @table_list,$_->[0];	push(@table_list,$_->[0]);
}	}
$debugstring = "Got list of tables in DB: @table_list";	$debugstring = "Got list of tables in DB: ".join(',',@table_list);
return @table_list;	return(@table_list);
}	}

###########################################	###########################################