+ set i 0
+ foreach d $databases {
+ html {<input type="checkbox" name="base" value="} $d
+ if {[lsearch $databaseDefault $d] == -1} {
+ html {"> } $d \n
+ } else {
+ html {" checked> } $d \n
+ }
+ }
+ html "<br>\n"
+ if {$nodb > 2} {
+ html {<input type="checkbox" name="baseall" value="}
+ html [concat $databases] {"> All <br>} \n
+ }
+ }
+ html "Input your scan criteria:<br>\n"
+ set fields [lindex $targets($host) 2]
+ set no 1
+ html {<select name="menu} $no {">} \n
+ set template {}
+ if {$oSetNo > 0} {
+ set template [join $hist($oSetNo,form,menu$no)]
+ egw_log debug "template=$template"
+ }
+ if {[string length $template] > 0} {
+ html {<option> } $template \n
+ }
+ foreach f $fields {
+ set name [lindex $f 0]
+ if {$template == $name} continue
+ html {<option> } $name \n
+ }
+ html "</select>\n"
+ html {<input type="text" name="entry} $no {"}
+ html { size=35> }
+ html {<input type=submit name=submit value="Scan">}
+ html "\n"
+ html {</form><br>}
+
+ set useIcons 0
+ if {$hist($setNo,$scanNo,scanTerm) == ""} {
+ button-europagate
+ button-new-query 0 $setNo
+ return
+ }
+
+ html "<p>\n"
+ display-scan $setNo $scanNo 0
+ html "<p>\n"
+
+ button-europagate
+
+ html {<a href="http:} $env(SCRIPT_NAME)
+ html / $sessionId {/search.egw/} $setNo + $targetNo +
+ html [expr $scanNo - 1] + b {">}
+ if {$useIcons} {
+ html {<img src="/egwgif/button-previous-terms.gif" }
+ html {alt="Next Terms" border=0></a>}
+ } else {
+ html {Previous Terms</a> | }