--- trunk/lib/Frey/DBI/Sponge.pm 2009/01/06 23:42:59 950 +++ trunk/lib/Frey/DBI/Sponge.pm 2009/01/06 23:43:59 951 @@ -34,7 +34,13 @@ my $create_sql = qq{ create table $table ( - } . join( ",\n", map { s/%//; "$_ text" } @columns ) . qq{ + } . join( ",\n", + map { + s/%//; # stip invalid characters from column names + my $type = 'text'; + $type = 'timestamp' if $_ =~ m{(date|time)}; + "$_ $type" + } @columns ) . qq{ ); }; eval { $dbh->do( $create_sql ); };