- html {<input type="checkbox" name="host"}
- html { value="nwi.ub2.lu.se/sverige"> Sweden}
- html {<input type="checkbox" name="host" }
- html { value="nwi.ub2.lu.se/new_nor_lib"> Norway}
-
- html "<br>\n"
-
- html {Display each record in <select name="format">}
- html "<option>brief\n"
- html "<option>medium\n"
+ 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"
+ }