[BACK]Return to lonmysql.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmysql.pm between versions 1.33 and 1.35

version 1.33, 2005/08/24 19:13:07 version 1.35, 2005/08/24 19:33:32
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 571  sub update_table_info { Line 571  sub update_table_info {
     #      #
     # Get MySQLs table status information.      # Get MySQLs table status information.
     #      #
     my @tabledesc;  
     my ($major_version) = ($db_config{'version'} =~ /^(\d)\./);  
     &Apache::lonnet::logthis('major version = '.$major_version);  
     if ($major_version <= 3) {  
         @tabledesc = qw/  
             Name Type Row_format Rows Avg_row_length Data_length  
             Max_data_length Index_length Data_free Auto_increment   
             Create_time Update_time Check_time Create_options Comment/;  
     } else { # At least 4 has this structure...  
         @tabledesc = qw/  
             Name Engine Version Row_format Rows Avg_row_length Data_length  
             Max_data_length Index_length Data_free Auto_increment Create_time   
             Update_time Check_time Collation Checksum Create_options Comment/;  
     }  
     my $db_command = "SHOW TABLE STATUS FROM loncapa LIKE '$tablename'";      my $db_command = "SHOW TABLE STATUS FROM loncapa LIKE '$tablename'";
     my $sth = $dbh->prepare($db_command);      my $sth = $dbh->prepare($db_command);
     $sth->execute();      $sth->execute();
Line 594  sub update_table_info { Line 580  sub update_table_info {
         &disconnect_from_db();          &disconnect_from_db();
         return undef;          return undef;
     }      }
       my @column_name = @{$sth->{NAME}};
     #      #
     my @info=$sth->fetchrow_array;      my @info=$sth->fetchrow_array;
     for (my $i=0;$i<= $#info ; $i++) {      for (my $i=0;$i<= $#info ; $i++) {
         if ($tabledesc[$i] !~ /^(Create_|Update_|Check_)time$/) {          if ($column_name[$i] =~ /^(Create_|Update_|Check_)time$/) {
             $Tables{$tablename}->{$tabledesc[$i]}=               $Tables{$tablename}->{$column_name[$i]}= 
                 &unsqltime($info[$i]);                  &unsqltime($info[$i]);
         } else {          } else {
             $Tables{$tablename}->{$tabledesc[$i]}= $info[$i];              $Tables{$tablename}->{$column_name[$i]}= $info[$i];
         }          }
     }      }
     #      #
Removed from v.1.33  
changed lines
  Added in v.1.35

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>