version 1.33, 2005/08/24 19:13:07
|
version 1.34, 2005/08/24 19:21:05
|
Line 387 sub connect_to_db {
|
Line 387 sub connect_to_db {
|
foreach my $row (@{$sth->fetchall_arrayref}) { |
foreach my $row (@{$sth->fetchall_arrayref}) { |
$db_config{$row->[0]} = $row->[1]; |
$db_config{$row->[0]} = $row->[1]; |
} |
} |
&Apache::lonnet::logthis("MySQL configuration variables"); |
#&Apache::lonnet::logthis("MySQL configuration variables"); |
while (my ($k,$v) = each(%db_config)) { |
#while (my ($k,$v) = each(%db_config)) { |
&Apache::lonnet::logthis(" '$k' => '$v'"); |
# &Apache::lonnet::logthis(" '$k' => '$v'"); |
} |
#} |
# |
# |
return 1; |
return 1; |
} |
} |
Line 573 sub update_table_info {
|
Line 573 sub update_table_info {
|
# |
# |
my @tabledesc; |
my @tabledesc; |
my ($major_version) = ($db_config{'version'} =~ /^(\d)\./); |
my ($major_version) = ($db_config{'version'} =~ /^(\d)\./); |
&Apache::lonnet::logthis('major version = '.$major_version); |
|
if ($major_version <= 3) { |
if ($major_version <= 3) { |
@tabledesc = qw/ |
@tabledesc = qw/ |
Name Type Row_format Rows Avg_row_length Data_length |
Name Type Row_format Rows Avg_row_length Data_length |