|
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 |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmysql.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface