loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2007/04/11 22:37:17	version 1.39, 2011/05/31 02:40:02
Line 817 sub build_table_creation_request {	Line 817 sub build_table_creation_request {
unless($table_des->{'permanent'} eq 'yes') {	unless($table_des->{'permanent'} eq 'yes') {
$request.="COMMENT = 'temporary' ";	$request.="COMMENT = 'temporary' ";
}	}
$request .= "TYPE=MYISAM";	$request .= "ENGINE=MYISAM";
return $request,$table_id;	return $request,$table_id;
}	}

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;