Mercurial > hg > egg-tcls
changeset 35:f4dd229b17d1
Fail if votes table exists.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Tue, 06 Sep 2011 18:16:13 +0300 |
| parents | dccd6c47f9cd |
| children | b24cb1dd0423 |
| files | util_convert.tcl |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/util_convert.tcl Tue Sep 06 18:15:49 2011 +0300 +++ b/util_convert.tcl Tue Sep 06 18:16:13 2011 +0300 @@ -56,6 +56,6 @@ } proc create_table_quotes_votes { utable } { + create_table_or_fail "${utable}_votes" "id INTEGER PRIMARY KEY AUTOINCREMENT, user VARCHAR(32), urlid INTEGER, vote INTEGER" create_table_or_fail "$utable" "id INTEGER PRIMARY KEY AUTOINCREMENT, utime INT, utext VARCHAR(2048), user VARCHAR(32), host VARCHAR(256), chan VARCHAR(32)" - create_table "${utable}_votes" "id INTEGER PRIMARY KEY AUTOINCREMENT, user VARCHAR(32), urlid INTEGER, vote INTEGER" }