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: |
7f078852010b646f118c2782f441a04e |
| 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 " ✝"
}
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 " ✝"
}
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
|