Check-in [2a4296c83b]

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:Oops. Forgot new flag in contact creation. Fixed.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | active-on-core
Files: files | file ages | folders
SHA1:2a4296c83bc94f5199599b06188114aeec03b824
User & Date: aku 2017-09-13 21:27:04
Context
2017-09-25
17:49
Fixes to tutorial dumping check-in: 9a5b3bad78 user: aku tags: active-on-core
2017-09-13
21:27
Oops. Forgot new flag in contact creation. Fixed. check-in: 2a4296c83b user: aku tags: active-on-core
04:22
Added flag and command to mark contacts as dead. Show this flag in listing and details. check-in: 59fe76a455 user: aku tags: active-on-core
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/contact.tcl.

1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
....
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
....
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282

    set name [string tolower $dname]
    db do eval {
	INSERT INTO contact
	VALUES (NULL, NULL,             -- id, tag
		3, :name, :dname,	-- mailing list, name, dname
		NULL, 1,		-- no initial description, generally public
		1,0,0,0,0)              -- can flags
    }
    return [db do last_insert_rowid]
}

proc ::cm::contact::new-company {dname} {
    debug.cm/contact {}
    Setup
................................................................................

    set name [string tolower $dname]
    db do eval {
	INSERT INTO contact
	VALUES (NULL, NULL,             -- id, tag
		2, :name, :dname,	-- company, name, dname
		NULL, 1,		-- no initial description, generally public
		1,0,0,0,1)              -- can flags

	-- TODO/Note: talker for a company submission should have company affiliation.
	-- TODO/Note: Not forbidden to not have affiliation, but worth a warning.
    }
    return [db do last_insert_rowid]
}

................................................................................

    set name [string tolower $dname]
    db do eval {
	INSERT INTO contact
	VALUES (NULL, NULL,             -- id, tag
		1, :name, :dname,	-- type (person), name, dname
		NULL, 0,		-- no initial bio, not generally public
		1,1,1,1,1)              -- can flags
    }
    return [db do last_insert_rowid]
}

proc ::cm::contact::new-mail {contact mail {public 0}} {
    debug.cm/contact {}
    Setup







|







 







|







 







|







1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
....
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
....
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282

    set name [string tolower $dname]
    db do eval {
	INSERT INTO contact
	VALUES (NULL, NULL,             -- id, tag
		3, :name, :dname,	-- mailing list, name, dname
		NULL, 1,		-- no initial description, generally public
		1,0,0,0,0,0)            -- can flags, !dead
    }
    return [db do last_insert_rowid]
}

proc ::cm::contact::new-company {dname} {
    debug.cm/contact {}
    Setup
................................................................................

    set name [string tolower $dname]
    db do eval {
	INSERT INTO contact
	VALUES (NULL, NULL,             -- id, tag
		2, :name, :dname,	-- company, name, dname
		NULL, 1,		-- no initial description, generally public
		1,0,0,0,1,0)            -- can flags, !dead

	-- TODO/Note: talker for a company submission should have company affiliation.
	-- TODO/Note: Not forbidden to not have affiliation, but worth a warning.
    }
    return [db do last_insert_rowid]
}

................................................................................

    set name [string tolower $dname]
    db do eval {
	INSERT INTO contact
	VALUES (NULL, NULL,             -- id, tag
		1, :name, :dname,	-- type (person), name, dname
		NULL, 0,		-- no initial bio, not generally public
		1,1,1,1,1,0)            -- can flags, !dead
    }
    return [db do last_insert_rowid]
}

proc ::cm::contact::new-mail {contact mail {public 0}} {
    debug.cm/contact {}
    Setup