X-Git-Url: http://git.indexdata.com/cgi-bin?a=blobdiff_plain;f=www%2Fz39util.tcl;fp=www%2Fz39util.tcl;h=8aa211841379d96488b96fd8da9fd2b42e1f4bca;hb=3acf7ded1eac12a1027c9e9ec379d41f930fb85b;hp=ec5631fd7cacbdda30635a8fd11727a7a60b15c8;hpb=f90ade3a7c770f660f06219e8254647d2a2a3cd2;p=egate.git diff --git a/www/z39util.tcl b/www/z39util.tcl index ec5631f..8aa2118 100644 --- a/www/z39util.tcl +++ b/www/z39util.tcl @@ -1,5 +1,5 @@ # -# $Id: z39util.tcl,v 1.47 1996/09/03 14:06:43 adam Exp $ +# $Id: z39util.tcl,v 1.48 1997/02/24 10:05:20 adam Exp $ # proc saveState {} { uplevel #0 { @@ -974,7 +974,6 @@ proc z39msearch {setNo elements start number cache} { } egw_log debug "old=$oldHost this=$thisHost" z39$i idAuthentication $hist($setNo,$i,idAuthentication) - html "Connecting to target " $thisHost "
\n" set zstatus($i) -1 if {![catch {z39$i connect $thisHost}]} { incr zleft