From cfcd8c656d76e9ab317063f14d9db794f34f2931 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 29 Mar 1995 16:07:09 +0000
Subject: [PATCH] Bug fix: Didn't use setName in present request.

---
 ir-tcl.c |    9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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;
-- 
1.7.10.4