Mercurial > hg > egg-tcls

comparison create_tj_db.tcl @ 631:9596cd122639

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Adjust database schema a bit, add new field 'uupdated'.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 15 Feb 2021 13:42:10 +0200
parents ea6ebcf42b47
children
comparison
equal deleted inserted replaced
630:b7e3a47ed072 631:9596cd122639
17 17
18 # username this item belongs to 18 # username this item belongs to
19 lappend sch "uuser VARCHAR(32)" 19 lappend sch "uuser VARCHAR(32)"
20 20
21 # created timestamp 21 # created timestamp
22 lappend sch "ucreated INT" 22 lappend sch "ucreated DATETIME"
23
24 # updated timestamp
25 lappend sch "uupdated DATETIME"
23 26
24 # description 27 # description
25 lappend sch "udesc VARCHAR(1024)" 28 lappend sch "udesc VARCHAR(1024)"
26
27 # 0 = TJ, 1 = one-time reminder, 2 = repeat reminder
28 lappend sch "utype INT"
29 29
30 # unique identifier for type 0 30 # unique identifier for type 0
31 lappend sch "uid VARCHAR(32)" 31 lappend sch "uid VARCHAR(32)"
32 32
33 # target date/time 33 # target date/time
34 lappend sch "utarget DATETIME" 34 lappend sch "utarget DATETIME"
35
36 # 0 = TJ, 1 = one-time reminder, 2 = repeat reminder
37 lappend sch "utype INT"
35 38
36 utl_create_table dbh "$utable" [join $sch ","] 39 utl_create_table dbh "$utable" [join $sch ","]
37 } 40 }
38 41
39 proc db_drop_table { dbh utable } { 42 proc db_drop_table { dbh utable } {