X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=recctrl%2Frecgrs.c;h=d8f34533a3d5565d0603d4884ce8931c9c90a046;hb=edf09fc5529eae3e8214a432058b4c07b2b8d2f9;hp=3e8cb09a81b4d70cac2e2a0c7870cd92ac567fa6;hpb=1300c402a9ecc32b470a7db96c0d93172ed1cf25;p=idzebra-moved-to-github.git

diff --git a/recctrl/recgrs.c b/recctrl/recgrs.c
index 3e8cb09..d8f3453 100644
--- a/recctrl/recgrs.c
+++ b/recctrl/recgrs.c
@@ -4,7 +4,17 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: recgrs.c,v $
- * Revision 1.1  1996-10-11 10:57:25  adam
+ * Revision 1.4  1997-04-30 08:56:08  quinn
+ * null
+ *
+ * Revision 1.2  1996/10/11  16:06:43  quinn
+ * Revision 1.3  1997/02/24 10:41:50  adam
+ * Cleanup of code and commented out the "end element-end-record" code.
+ *
+ * Revision 1.2  1996/10/11 16:06:43  quinn
+ * Fixed arguments to nodetogr
+ *
+ * Revision 1.1  1996/10/11  10:57:25  adam
  * New module recctrl. Used to manage records (extract/retrieval).
  *
  * Revision 1.29  1996/10/08 10:30:21  quinn
@@ -382,7 +392,7 @@ static int grs_extract(struct recExtractCtrl *p)
     if (dumpkeys(n, p, 0) < 0)
     {
 	data1_free_tree(n);
-	return -1;
+	return -2;
     }
     data1_free_tree(n);
     nmem_destroy(mem);
@@ -565,9 +575,10 @@ static int grs_retrieve(struct recRetrieveCtrl *p)
 	p->input_format : VAL_SUTRS))
     {
 	data1_marctab *marctab;
+	int dummy;
 
 	case VAL_GRS1:
-	    if (!(p->rec_buf = data1_nodetogr(node, selected, p->odr)))
+	    if (!(p->rec_buf = data1_nodetogr(node, selected, p->odr, &dummy)))
 		p->diagnostic = 2; /* this should be better specified */
 	    else
 		p->rec_len = -1;