- html / $sessionId {/mquery.egw/} $setNo {" method=post><br>} \n
- foreach t [array names targets] {
- html {<input type="checkbox" name="target" value="} $t
- html {"> } $t \n
- html "<br>\n"
+ html / $sessionId / $scriptQuery {;/} -1 {" method=get><br>} \n
+ html "<dl>\n"
+
+ proc headlineC {h} {
+ html {<dt><h2>} $h \n {</h2>}
+ }
+ 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]
+
+ set desc [lindex $targets($t) 4]
+ if {[string length $desc] > 0} {
+ html "$desc<br>\n"
+ }
+ html {<dd>}
+ foreach d $databases {
+ html {<input type="checkbox" name="target"}
+ html { value="} $t + $d {"> } $d
+ }
+ html "<br><br>\n"
+ }
+ if {![info exists waisFlag]} {
+ set waisFlag 1
+ if {[catch {wais waisdummy}]} {
+ set waisFlag 0
+ } else {
+ rename waisdummy {}
+ }