Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | cm-ingest: Show project/project associations. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
46dc1c4134f07bd47b64c2eb533831a1 |
User & Date: | aku 2017-11-08 00:33:22.419 |
Context
2017-11-23
| ||
08:10 | Added `expect` repo to main index. check-in: 8d923644e4 user: aku tags: trunk | |
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 | |
Changes
Changes to cm-ingest.tcl.
︙ | ︙ | |||
128 129 130 131 132 133 134 | } { dict set c $dname link [string map [list *** $name] $link] $title } } } dict set c $dname contacts $n | | > | 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 | } { dict set c $dname link [string map [list *** $name] $link] $title } } } dict set c $dname contacts $n # Affiliations (people/lists/companies/projects can be # affiliated with companies/projects). cm eval { SELECT C.dname AS aff FROM affiliation A , contact C WHERE A.person = :id AND A.company = C.id } { |
︙ | ︙ | |||
336 337 338 339 340 341 342 | foreach l $links { >> <li> [link $l [dict get $c $dname link $l]] </li> } >> </ul> } # No rep info - private | | > > > > > > > > > | 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 | foreach l $links { >> <li> [link $l [dict get $c $dname link $l]] </li> } >> </ul> } # No rep info - private # But we can show the affiliations, and associations set orgs [lsort -dict [dict keys [dict get $c $dname org]]] if {[llength $orgs]} { >> <p> {Associated with:} </p> <ul> foreach o $orgs { >> <li> [link [page $o] $o] </li> } >> </ul> } set affs [lsort -dict [dict keys [dict get $c $dname aff]]] if {[llength $affs]} { >> <p> {Affiliates:} </p> <ul> foreach a $affs { >> <li> [link [page $a] $a] </li> } >> </ul> |
︙ | ︙ |