Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Disable mail contacts for dead people. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
7f078852010b646f118c2782f441a04e |
| User & Date: | aku 2017-10-27 18:49:10.854 |
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 |
global c t
into people
>> ""
table {
>> <tr> <th> Name </th><th> Information </th> </tr>
foreach dname [lsort -dict [dict get $t person]] {
| | > | | | | | | | | | | > | 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 |
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>
|
| ︙ | ︙ | |||
374 375 376 377 378 379 380 |
}
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]
| | > | 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 |
}
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 " ✝"
}
if {$bio ne {}} {
set first [first $bio cut]
append dname \
<br><br> \
|
| ︙ | ︙ | |||
397 398 399 400 401 402 403 |
}
if {$tag ne {}} {
>> <tr valign=top> <td> [anchor $hash] [anchor $tag] ${dname} </td>
} else {
>> <tr valign=top> <td> [anchor $hash] ${dname} </td>
}
| | | 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 |
}
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
|
| ︙ | ︙ |