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

Diff for /loncom/interface/lonmysql.pm between versions 1.23 and 1.24

version 1.23, 2004/07/26 19:36:21 version 1.24, 2004/08/20 01:27:05
Line 619  Returns: Line 619  Returns:
 sub create_table {  sub create_table {
     return undef if (!defined(&connect_to_db($dbh)));      return undef if (!defined(&connect_to_db($dbh)));
     my ($table_des)=@_;      my ($table_des)=@_;
     my $request = &build_table_creation_request($table_des);      my ($request,$table_id) = &build_table_creation_request($table_des);
     #      #
     # Execute the request to create the table      # Execute the request to create the table
     #############################################      #############################################
Line 629  sub create_table { Line 629  sub create_table {
             $dbh->errstr();              $dbh->errstr();
         return undef;          return undef;
     }      }
     #  
     # Set up the internal bookkeeping  
     #############################################  
     my $table_id;  
     if (exists($table_des->{'id'})) {  
         $table_id = $table_des->{'id'};  
     } else {  
         $table_id = &get_new_table_id();  
     }  
     my $tablename = &translate_id($table_id);      my $tablename = &translate_id($table_id);
     delete($Tables{$tablename}) if (exists($Tables{$tablename}));      delete($Tables{$tablename}) if (exists($Tables{$tablename}));
     return undef if (! defined(&update_table_info($table_id)));      return undef if (! defined(&update_table_info($table_id)));
Line 770  sub build_table_creation_request { Line 761  sub build_table_creation_request {
         $request.="COMMENT = 'temporary' ";          $request.="COMMENT = 'temporary' ";
     }       } 
     $request .= "TYPE=MYISAM";      $request .= "TYPE=MYISAM";
     return $request;      return $request,$table_id;
 }  }
   
 ###############################  ###############################
Removed from v.1.23  
changed lines
  Added in v.1.24

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