From: Adam Dickmeiss <adam@indexdata.dk>
Date: Mon, 26 Jun 1995 10:26:16 +0000 (+0000)
Subject: Connect response bug fix.
X-Git-Tag: IRTCL.1.4~243
X-Git-Url: http://git.indexdata.com/?p=ir-tcl-moved-to-github.git;a=commitdiff_plain;h=da0828666321a53b049c8c89934a30b5f31ab698

Connect response bug fix.
---

diff --git a/iterate.tcl b/iterate.tcl
index 65c506e..4841003 100644
--- a/iterate.tcl
+++ b/iterate.tcl
@@ -1,6 +1,11 @@
-# $Id: iterate.tcl,v 1.2 1995-05-26 11:44:10 adam Exp $
+# $Id: iterate.tcl,v 1.3 1995-06-26 10:26:16 adam Exp $
 #
 # Small test script which searches for science ...
+proc connect-response {} {
+    z callback {init-response}
+    ir-set z.1 z
+    z init
+}
 proc init-response {} {
     global count
 
@@ -24,7 +29,11 @@ proc search-response {} {
         do-search
     }
     z callback {present-response}
-    z.1 present 1 $hits
+    if {$hits < 10} {
+        z.1 present 1 $hits
+    } else {
+        z.1 present 1 10
+    }
 }
 
 proc present-response {} {
@@ -32,9 +41,7 @@ proc present-response {} {
 }
 
 ir z
-z databaseNames DEM
+z databaseNames dummy
+z callback {connect-response}
 z connect localhost:9999
-z callback {init-response}
-ir-set z.1 z
-z init