From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 21 Mar 2002 11:11:53 +0000 (+0000)
Subject: searchResult usage
X-Git-Tag: IRTCL.1.4.1~10
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=a14bc0ab07230d5cd19e9542c2ea1fbca86d960a;p=ir-tcl-moved-to-github.git

searchResult usage
---

diff --git a/shell.tcl b/shell.tcl
index ee635bd..9b64f68 100644
--- a/shell.tcl
+++ b/shell.tcl
@@ -1,4 +1,4 @@
-# $Id: shell.tcl,v 1.7 2002-03-20 14:48:54 adam Exp $
+# $Id: shell.tcl,v 1.8 2002-03-21 11:11:53 adam Exp $
 #
 
 if {[catch {ir-log-init all irtcl shell.log}]} {
@@ -77,7 +77,10 @@ proc find-response {z} {
     if {$sstatus} {
         set h [$z resultCount]
         puts "Search ok. $h hits"
-	puts [$z searchResult]
+	set terms [$z searchResult]
+	foreach tc $terms {
+            puts "[lindex $tc 0]: [lindex $tc 1]"
+        }
     } else {
         puts "Search failed"
     }