From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 18 Oct 1995 15:43:31 +0000 (+0000)
Subject: In search: mediumSetElementSetNames and smallSetElementSetNames are
X-Git-Tag: IRTCL.1.4~195
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;ds=sidebyside;h=8e5e7afa1496f14ea73263fef28ccece1adcde85;p=ir-tcl-moved-to-github.git

In search: mediumSetElementSetNames and smallSetElementSetNames are
set to elementSetNames.
---

diff --git a/ir-tcl.c b/ir-tcl.c
index 6aff70d..064c752 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -5,7 +5,11 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.59  1995-10-17 12:18:58  adam
+ * Revision 1.60  1995-10-18 15:43:31  adam
+ * In search: mediumSetElementSetNames and smallSetElementSetNames are
+ * set to elementSetNames.
+ *
+ * Revision 1.59  1995/10/17  12:18:58  adam
  * Bug fix: when target connection closed, the connection was not
  * properly reestablished.
  *
@@ -1601,8 +1605,6 @@ static int do_search (void *o, Tcl_Interp *interp, int argc, char **argv)
     req->databaseNames = obj->set_inher.databaseNames;
     for (r=0; r < obj->set_inher.num_databaseNames; r++)
         logf (LOG_DEBUG, " Database %s", obj->set_inher.databaseNames[r]);
-    req->smallSetElementSetNames = 0;
-    req->mediumSetElementSetNames = 0;
     if (obj->set_inher.preferredRecordSyntax)
     {
         struct oident ident;
@@ -1624,9 +1626,13 @@ static int do_search (void *o, Tcl_Interp *interp, int argc, char **argv)
         esn->which = Z_ElementSetNames_generic;
         esn->u.generic = obj->set_inher.elementSetNames;
         req->mediumSetElementSetNames = esn;
+        req->smallSetElementSetNames = esn;
     }
     else
+    {
         req->mediumSetElementSetNames = NULL;
+        req->smallSetElementSetNames = NULL; 
+    }
 
     req->query = &query;