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

Overview
Comment:Disable mail contacts for dead people.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:7f078852010b646f118c2782f441a04ecc1c588fa16f4f3e22a1704924a09605
User & Date: aku 2017-10-27 18:49:10
Context
2017-11-08
00:33
cm-ingest: Show project/project associations. check-in: 46dc1c4134 user: aku tags: trunk
2017-10-27
18:49
Disable mail contacts for dead people. check-in: 7f07885201 user: aku tags: trunk
18:27
Extended to use the `is_dead` flag when generating output. TODO: Interaction with public email addresses. check-in: 512cb9e043 user: aku tags: trunk
Changes

Changes to cm-ingest.tcl.

216
217
218
219
220
221
222
223
224
225

226
227
228
229
230
231
232
233
234
235

236
237
238
239
240
241
242
...
374
375
376
377
378
379
380
381

382
383
384
385
386
387
388
...
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
    global c t
    into people

    >> ""
    table {
	>> <tr> <th> Name </th><th> Information </th> </tr>
	foreach dname [lsort -dict [dict get $t person]] {
	    start $dname
	    
	    >> <td>

	    set mails [lsort -dict [dict keys [dict get $c $dname mail]]]
	    if {[llength $mails]} {
		>> <p> Contacts: </p> <ul>
		foreach m $mails {
		    >> <li> [link mailto:$m $m] </li>
		}
		>> </ul>
	    } elseif {[dict get $c $dname contacts] == 0} {
		# No contacts. Show this case
		>> <p> "<font color=red>" No contacts available </font> </p>

	    }

	    set links [lsort -dict [dict keys [dict get $c $dname link]]]
	    if {[llength $links]} {
		>> <p> Websites: </p> <ul>
		foreach l $links {
		    >> <li> [link $l [dict get $c $dname link $l]] </li>
................................................................................
}

proc start {dname} {
    global c
    set tag  [dict get $c $dname tag]
    set hash [dict get $c $dname hash]
    set bio  [dict get $c $dname bio]
    if {[dict get $c $dname dead]} {

	append dname " &#10013;"
    }

    if {$bio ne {}} {
	set first [first $bio cut]
	append dname \
	    <br><br> \
................................................................................
    }
   
    if {$tag ne {}} {
	>> <tr valign=top> <td> [anchor $hash] [anchor $tag] ${dname} </td>
    } else {
	>> <tr valign=top> <td> [anchor $hash] ${dname} </td>
    }
    return
}

proc bio-type {dname} {
    global c
    return [dict get {
	person      Biography
	mailinglist Description







|


>
|
|
|
|
|
|
|
|
|
|
>







 







|
>







 







|







216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
...
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
...
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
    global c t
    into people

    >> ""
    table {
	>> <tr> <th> Name </th><th> Information </th> </tr>
	foreach dname [lsort -dict [dict get $t person]] {
	    set dead [start $dname]
	    
	    >> <td>
	    if {!$dead} {
		set mails [lsort -dict [dict keys [dict get $c $dname mail]]]
		if {[llength $mails]} {
		    >> <p> Contacts: </p> <ul>
		    foreach m $mails {
			>> <li> [link mailto:$m $m] </li>
		    }
		    >> </ul>
		} elseif {[dict get $c $dname contacts] == 0} {
		    # No contacts. Show this case
		    >> <p> "<font color=red>" No contacts available </font> </p>
		}
	    }

	    set links [lsort -dict [dict keys [dict get $c $dname link]]]
	    if {[llength $links]} {
		>> <p> Websites: </p> <ul>
		foreach l $links {
		    >> <li> [link $l [dict get $c $dname link $l]] </li>
................................................................................
}

proc start {dname} {
    global c
    set tag  [dict get $c $dname tag]
    set hash [dict get $c $dname hash]
    set bio  [dict get $c $dname bio]
    set dead [dict get $c $dname dead]
    if {$dead} {
	append dname " &#10013;"
    }

    if {$bio ne {}} {
	set first [first $bio cut]
	append dname \
	    <br><br> \
................................................................................
    }
   
    if {$tag ne {}} {
	>> <tr valign=top> <td> [anchor $hash] [anchor $tag] ${dname} </td>
    } else {
	>> <tr valign=top> <td> [anchor $hash] ${dname} </td>
    }
    return $dead
}

proc bio-type {dname} {
    global c
    return [dict get {
	person      Biography
	mailinglist Description