- set tt [array names targets]
- set tn [lsort -command targetsCmp $tt]
- foreach t $tn {
- html {<dt>} [ lindex $targets($t) 0]
- html {<dd>}
- set databases [lindex $targets($t) 1]
-
+ proc targetC {t} {
+ global targets
+ global waisFlag
+ if {!$waisFlag && ![string compare [lindex $targets($t) 1] WAIS]} {
+ return
+ }
+ html {<dt><b>} [lindex $targets($t) 0]
+ html {</b>: }
+ set databases [splitDatabaseSpec $t]
+