Check-in [e51281808d]

Not logged in
Tcl 2015 Conference, Manassas/VA, US, Oct 19-23
Send your abstracts to tclconference@googlegroups.com by Aug 24.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix schema syntax oopses in recent work on contacts
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | active-on-core
Files: files | file ages | folders
SHA1:e51281808da0927f5ba0e3a0bd9e4bc55c9b909e
User & Date: aku 2017-09-25 17:52:44
Context
2017-09-25
17:54
Two changes: Give conferences an attribute for grouping (series), and collect materials for proceedings in a single section for convenience of download. check-in: 56c3934f39 user: aku tags: active-on-core
17:52
Fix schema syntax oopses in recent work on contacts check-in: e51281808d user: aku tags: active-on-core
17:51
Expose the test commands for city and location validation check-in: 32c2050e25 user: aku tags: active-on-core
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/contact.tcl.

1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
....
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
	    biography	 TEXT,                          -- a person's bio, or list/project/company description
	    bio_public   INTEGER NOT NULL,		-- bio is generally public
	    
	    can_recvmail INTEGER NOT NULL,	-- valid recipient of conference mail (call for papers)
	    can_register INTEGER NOT NULL,	-- actual person can register for attendance
	    can_book	 INTEGER NOT NULL,	-- actual person can book hotels
	    can_talk	 INTEGER NOT NULL,	-- actual person can do presentation
	    can_submit	 INTEGER NOT NULL	-- actual person, or company can submit talks
	    is_dead	 INTEGER NOT NULL	-- contact is deceased
	} {
	    {id			INTEGER 1 {} 1}
	    {tag		TEXT    0 {} 0}
	    {type		INTEGER 1 {} 0}
	    {name		TEXT    1 {} 0}
	    {dname		TEXT    1 {} 0}
................................................................................
    }

    if {![dbutil initialize-schema ::cm::db::do error email {
	{
	    id		INTEGER	NOT NULL PRIMARY KEY AUTOINCREMENT,
	    email	TEXT	NOT NULL UNIQUE,
	    contact	INTEGER	NOT NULL REFERENCES contact,
	    inactive	INTEGER	NOT NULL	-- mark outdated addresses
	    public	INTEGER	NOT NULL	-- mark visible addresses
	} {
	    {id		INTEGER 1 {} 1}
	    {email	TEXT    1 {} 0}
	    {contact	INTEGER 1 {} 0}
	    {inactive	INTEGER 1 {} 0}
	    {public	INTEGER 1 {} 0}







|







 







|







1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
....
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
	    biography	 TEXT,                          -- a person's bio, or list/project/company description
	    bio_public   INTEGER NOT NULL,		-- bio is generally public
	    
	    can_recvmail INTEGER NOT NULL,	-- valid recipient of conference mail (call for papers)
	    can_register INTEGER NOT NULL,	-- actual person can register for attendance
	    can_book	 INTEGER NOT NULL,	-- actual person can book hotels
	    can_talk	 INTEGER NOT NULL,	-- actual person can do presentation
	    can_submit	 INTEGER NOT NULL,	-- actual person, or company can submit talks
	    is_dead	 INTEGER NOT NULL	-- contact is deceased
	} {
	    {id			INTEGER 1 {} 1}
	    {tag		TEXT    0 {} 0}
	    {type		INTEGER 1 {} 0}
	    {name		TEXT    1 {} 0}
	    {dname		TEXT    1 {} 0}
................................................................................
    }

    if {![dbutil initialize-schema ::cm::db::do error email {
	{
	    id		INTEGER	NOT NULL PRIMARY KEY AUTOINCREMENT,
	    email	TEXT	NOT NULL UNIQUE,
	    contact	INTEGER	NOT NULL REFERENCES contact,
	    inactive	INTEGER	NOT NULL,	-- mark outdated addresses
	    public	INTEGER	NOT NULL	-- mark visible addresses
	} {
	    {id		INTEGER 1 {} 1}
	    {email	TEXT    1 {} 0}
	    {contact	INTEGER 1 {} 0}
	    {inactive	INTEGER 1 {} 0}
	    {public	INTEGER 1 {} 0}