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: 46dc1c4134f07bd47b64c2eb533831a132efe4b694ebffaa7c125e3cdb1f2d7f
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
Unified Diff Ignore Whitespace Patch
Changes to cm-ingest.tcl.
128
129
130
131
132
133
134
135

136
137
138
139
140
141
142
		} {
		    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
	} {







|
>







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
343
344









345
346
347
348
349
350
351
		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>







|

>
>
>
>
>
>
>
>
>







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>