<html>
{
-# $Id: msearch.egw,v 1.4 1995/11/10 14:47:31 adam Exp $
+# $Id: msearch.egw,v 1.5 1995/11/13 15:41:42 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
set hist($nextSetNo,$i,host) $hist($setNo,$i,host)
set hist($nextSetNo,$i,database) $hist($setNo,$i,database)
set hist($nextSetNo,$i,idAuthentication) \
- hist($setNo,$i,idAuthentication)
+ $hist($setNo,$i,idAuthentication)
}
set setNo $nextSetNo
incr nextSetNo
set hist($setNo,maxPresent) 30
}
}
- z39msearch $setNo 1
+ z39msearch $setNo 1 B
html "<dl>\n"
set not $hist($setNo,0,host)
for {set i 1} {$i <= $not} {incr i} {
if {$zstatus($i) != 2} continue
- html "<dt> " $hist($setNo,$i,host) ": "
+ html "<dt> " [lindex $targets($hist($setNo,$i,host)) 0] ": "
set status [z39$i.$setNo responseStatus]
if {[lindex $status 0] == "NSD"} {
z39$i.$setNo nextResultSetPosition 0