X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fmsearch.egw;h=efe43b926360f39cea959960c950e848197eb8e7;hb=b52740e82ab92e99a6982bf5c99a30ac404bd557;hp=ee40776347b93c541246a1c1ffceb0f44e901a7c;hpb=74a4580ba9945fc86b47654230865a68089245b6;p=egate.git diff --git a/www/msearch.egw b/www/msearch.egw index ee40776..efe43b9 100644 --- a/www/msearch.egw +++ b/www/msearch.egw @@ -1,6 +1,6 @@ { -# $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 @@ -21,7 +21,7 @@ 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 @@ -34,13 +34,13 @@ set hist($setNo,maxPresent) 30 } } - z39msearch $setNo 1 + z39msearch $setNo 1 B html "
\n" set not $hist($setNo,0,host) for {set i 1} {$i <= $not} {incr i} { if {$zstatus($i) != 2} continue - html "
" $hist($setNo,$i,host) ": " + html "
" [lindex $targets($hist($setNo,$i,host)) 0] ": " set status [z39$i.$setNo responseStatus] if {[lindex $status 0] == "NSD"} { z39$i.$setNo nextResultSetPosition 0