+ foreach t {
+ {nwi.ub2.lu.se/sverige}
+ {nwi.ub2.lu.se/new_nor_lib}
+ {localhost:9999/test}
+ {localhost:210/Default}
+ } {
+ html {<input type="checkbox" name="host" }
+ if {[info exists curTargets]} {
+ if {[lsearch -exact $curTargets $t] != -1} {
+ html {checked }
+ }
+ }
+ html {value="} $t {"> } [lindex $targets($t) 0]
+ }
+ catch {unset curTargets}
+ html {<p><dt><b>Display each record in <select name="format"><dd>}
+ if {![string compare $curFormat brief]} {
+ html "<option>brief\n"
+ html "<option>medium\n"
+ } else {
+ html "<option>medium\n"
+ html "<option>brief\n"
+ }