loncom/metadata_database/cleanup_database.pl - diff

Return to cleanup_database.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.6, 2006/08/21 21:30:02	version 1.7, 2006/11/20 17:07:57
Line 119 unless ($dbh = DBI->connect("DBI:mysql:l	Line 119 unless ($dbh = DBI->connect("DBI:mysql:l

my $sth = $dbh->prepare("SHOW TABLE STATUS");	my $sth = $dbh->prepare("SHOW TABLE STATUS");
$sth->execute();	$sth->execute();
my $results = $sth->fetchall_hashref(['Name']);	my $results = $sth->fetchall_hashref('Name');

foreach my $name (keys(%$results)) {	foreach my $name (keys(%$results)) {
next if ($results->{$name}{Comment} ne 'temporary');	next if ($results->{$name}{Comment} ne 'temporary');