Removed "Connecting to <host>" thing in multi-target connect code.
authorAdam Dickmeiss <adam@indexdata.dk>
Mon, 24 Feb 1997 10:05:20 +0000 (10:05 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Mon, 24 Feb 1997 10:05:20 +0000 (10:05 +0000)
www/z39util.tcl
www/ztargets.conf

index ec5631f..8aa2118 100644 (file)
@@ -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 " <br>\n"
         set zstatus($i) -1
         if {![catch {z39$i connect $thisHost}]} {
             incr zleft
index cf85636..ff5dd87 100644 (file)
@@ -1,4 +1,4 @@
-# $Id: ztargets.conf,v 1.37 1996/09/03 14:06:44 adam Exp $
+# $Id: ztargets.conf,v 1.38 1997/02/24 10:05:23 adam Exp $
 #
 # This file contains the predefined targets in the WWW-Z39.50 gateway
 # Each target is an entry in the associative array "targets". The
@@ -209,7 +209,7 @@ set targets(z3950.research.att.com/netlib) {
     assorted
 }
 
-set targets(localhost:210/Default) {
+set targets(localhost:9999/Default) {
     Ztest
     USMARC
  {
@@ -222,7 +222,7 @@ set targets(localhost:210/Default) {
  { Free-text {@attr 1=1016 @attr 4=105} }
  }
     {}
-    {Z39.50 Test server on port 210}
+    {Z39.50 Test server on port 9999}
     1
     test
 }