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; |
} |
} |
|
|
############################### |
############################### |