{ # $Id: mquery.egw,v 1.6 1995/12/21 15:49:51 adam Exp $ if {[info commands saveState] == ""} { source z39util.tcl } global setNo global nextSetNo global hist global targets if {[catch {set setNo $nextSetNo}]} { set nextSetNo 1 set setNo 1 } html {
} \n set phost {} set i 0 foreach t [lsort [wform target]] { set host [lindex $t 0] set base [lindex $t 1] if {$host != $phost} { set phost $host incr i set hist($setNo,$i,host) $host set hist($setNo,$i,idAuthentication) [lindex $targets($host) 3] } lappend hist($setNo,$i,database) $base } if {$i == 0} { html "
No targets specified