- serverList headlineC targetC
-
- } else {
- proc targetsCmp {l r} {
- global targets
- return [string compare [string tolower [lindex $targets($l) 0]] \
- [string tolower [lindex $targets($r) 0]]]
- }
- set tt [array names targets]
- set tn [lsort -command targetsCmp $tt]
- foreach t $tn {
- html {<dt><a href="http:} $env(SCRIPT_NAME) /
- html "$sessionId/query.egw;/-1+$t" {"> } [lindex $targets($t) 0]
- html " </a>\n"
- set desc [lindex $targets($t) 4]
- if {$desc != ""} {
- html "<dd>$desc\n"