Parent Directory | Revision Log | Patch
revision 950 by dpavlin, Tue Jan 6 11:56:28 2009 UTC | revision 951 by dpavlin, Tue Jan 6 23:43:59 2009 UTC | |
---|---|---|
# | Line 34 sub to_database_as_markup { | Line 34 sub to_database_as_markup { |
34 | ||
35 | my $create_sql = qq{ | my $create_sql = qq{ |
36 | create table $table ( | create table $table ( |
37 | } . join( ",\n", map { s/%//; "$_ text" } @columns ) . qq{ | } . join( ",\n", |
38 | map { | |
39 | s/%//; # stip invalid characters from column names | |
40 | my $type = 'text'; | |
41 | $type = 'timestamp' if $_ =~ m{(date|time)}; | |
42 | "$_ $type" | |
43 | } @columns ) . qq{ | |
44 | ); | ); |
45 | }; | }; |
46 | eval { $dbh->do( $create_sql ); }; | eval { $dbh->do( $create_sql ); }; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |