From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 29 Mar 1995 16:07:09 +0000 (+0000)
Subject: Bug fix: Didn't use setName in present request.
X-Git-Tag: IRTCL.1.4~321
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=cfcd8c656d76e9ab317063f14d9db794f34f2931;p=ir-tcl-moved-to-github.git

Bug fix: Didn't use setName in present request.
---

diff --git a/ir-tcl.c b/ir-tcl.c
index c48977c..f9986c9 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -4,7 +4,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.19  1995-03-28 12:45:23  adam
+ * Revision 1.20  1995-03-29 16:07:09  adam
+ * Bug fix: Didn't use setName in present request.
+ *
+ * Revision 1.19  1995/03/28  12:45:23  adam
  * New ir method failback: called on disconnect/protocol error.
  * New ir set/get method: protocol: SR / Z3950.
  * Simple popup and disconnect when failback is invoked.
@@ -1265,7 +1268,9 @@ static int do_present (void *o, Tcl_Interp *interp,
     apdu.u.presentRequest = &req;
     req.referenceId = 0;
     /* sprintf(setstring, "%d", setnumber); */
-    req.resultSetId = "Default";
+
+    req.resultSetId = obj->setName ? obj->setName : "Default";
+    
     req.resultSetStartPoint = &start;
     req.numberOfRecordsRequested = &number;
     req.elementSetNames = 0;