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

Overview
Comment:cm-ingest: Show project/project associations.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:46dc1c4134f07bd47b64c2eb533831a132efe4b694ebffaa7c125e3cdb1f2d7f
User & Date: aku 2017-11-08 00:33:22
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

135
136
137
138
139
140
141
142
...
336
337
338
339
340
341
342
343
344









345
346
347
348
349
350
351
		} {
		    dict set c $dname link [string map [list *** $name] $link] $title
		}
	    }
	}
	dict set c $dname contacts $n
	

	# Affiliations (people/lists 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
	} {
................................................................................
		foreach l $links {
		    >> <li> [link $l [dict get $c $dname link $l]] </li>
		}
		>> </ul>
	    }

	    # No rep info - private
	    # But we can show the affiliations.










	    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>







>
|







 







|

>
>
>
>
>
>
>
>
>







128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
...
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
		} {
		    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
	} {
................................................................................
		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>