} {
		    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>

		} {
		    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>