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.38, 2009/02/01 22:03:42
  Line 1095  Returns undef on error.
  =cut
  ###########################################
+ ########## Show-Tables Cache
+ my $have_read_tables = 0;
+ my $dbh_sth;
+ ##########
  sub tables_in_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 =
              "$dbh ATTEMPTED:\n".'fetchall_arrayref after SHOW TABLES'.
-             "\nRESULTING ERROR:\n".$sth->errstr;
+             "\nRESULTING ERROR:\n".$dbh_sth->errstr;
          return undef;
      }
      my @table_list;