projects
/
ir-tcl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
2e12e18
)
Bug fix: Didn't use setName in present request.
author
Adam Dickmeiss
<adam@indexdata.dk>
Wed, 29 Mar 1995 16:07:09 +0000
(16:07 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Wed, 29 Mar 1995 16:07:09 +0000
(16:07 +0000)
ir-tcl.c
patch
|
blob
|
history
diff --git
a/ir-tcl.c
b/ir-tcl.c
index
c48977c
..
f9986c9
100644
(file)
--- a/
ir-tcl.c
+++ b/
ir-tcl.c
@@
-4,7
+4,10
@@
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: ir-tcl.c,v $
* 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.
* 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); */
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;
req.resultSetStartPoint = &start;
req.numberOfRecordsRequested = &number;
req.elementSetNames = 0;