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>
|
| ︙ | ︙ |