version 1.24, 2004/08/20 01:27:05
|
version 1.26, 2005/02/09 21:21:08
|
Line 556 sub update_table_info {
|
Line 556 sub update_table_info {
|
# |
# |
my @info=$sth->fetchrow_array; |
my @info=$sth->fetchrow_array; |
for (my $i=0;$i<= $#info ; $i++) { |
for (my $i=0;$i<= $#info ; $i++) { |
$Tables{$tablename}->{$tabledesc[$i]}= $info[$i]; |
if ($tabledesc[$i] !~ /^(Create_|Update_|Check_)time$/) { |
|
$Tables{$tablename}->{$tabledesc[$i]}= |
|
&unsqltime($info[$i]); |
|
} else { |
|
$Tables{$tablename}->{$tabledesc[$i]}= $info[$i]; |
|
} |
} |
} |
# |
# |
# Determine the column order |
# Determine the column order |
Line 580 sub update_table_info {
|
Line 585 sub update_table_info {
|
$debugstring = "Retrieved table info for $tablename"; |
$debugstring = "Retrieved table info for $tablename"; |
return 1; |
return 1; |
} |
} |
|
|
|
############################### |
|
|
|
=pod |
|
|
|
=item &table_information() |
|
|
|
Inputs: table id |
|
|
|
Returns: hash with the table status |
|
|
|
=cut |
|
|
|
############################### |
|
sub table_information { |
|
my $table_id=shift; |
|
if (&update_table_info($table_id)) { |
|
return %{$Tables{$table_id}}; |
|
} else { |
|
return (); |
|
} |
|
} |
|
|
############################### |
############################### |
|
|
=pod |
=pod |
Line 592 Returns: array with column order
|
Line 620 Returns: array with column order
|
|
|
=cut |
=cut |
|
|
|
############################### |
sub col_order { |
sub col_order { |
my $table_id=shift; |
my $table_id=shift; |
if (&update_table_info($table_id)) { |
if (&update_table_info($table_id)) { |
Line 1154 sub drop_table {
|
Line 1182 sub drop_table {
|
return 1; # if we got here there was no error, so return a 'true' value |
return 1; # if we got here there was no error, so return a 'true' value |
} |
} |
|
|
|
########################################## |
|
|
|
=pod |
|
|
|
=item fix_table_name |
|
|
|
Fixes a table name so that it will work with MySQL. |
|
|
|
=cut |
|
|
|
########################################## |
|
sub fix_table_name { |
|
my ($name) = @_; |
|
$name =~ s/^(\d+e\d+)/_$1/; |
|
return $name; |
|
} |
|
|
|
|
# ---------------------------- convert 'time' format into a datetime sql format |
# ---------------------------- convert 'time' format into a datetime sql format |