From a14bc0ab07230d5cd19e9542c2ea1fbca86d960a Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Thu, 21 Mar 2002 11:11:53 +0000 Subject: [PATCH] searchResult usage --- shell.tcl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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" } -- 1.7.10.4