X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=recctrl%2Frecgrs.c;h=b4ef25cd00ca9e6c5888aaae385e7bf8627f5815;hb=4ed5fbcd29d2a98b048d1d94510b262d352b4f7c;hp=f1f41791c3ef891764776b85ba8fc9a0ff78df31;hpb=392b67432545d96cb2f9b3264a9427582fc1934f;p=idzebra-moved-to-github.git

diff --git a/recctrl/recgrs.c b/recctrl/recgrs.c
index f1f4179..b4ef25c 100644
--- a/recctrl/recgrs.c
+++ b/recctrl/recgrs.c
@@ -1,10 +1,19 @@
 /*
- * Copyright (C) 1994-1998, Index Data
+ * Copyright (C) 1994-1999, Index Data
  * All rights reserved.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: recgrs.c,v $
- * Revision 1.23  1998-10-18 07:51:10  adam
+ * Revision 1.26  1999-03-02 16:15:44  quinn
+ * Added "tagsysno" and "tagrank" directives to zebra.cfg.
+ *
+ * Revision 1.25  1999/02/18 15:01:26  adam
+ * Minor changes.
+ *
+ * Revision 1.24  1999/02/02 14:51:28  adam
+ * Updated WIN32 code specific sections. Changed header.
+ *
+ * Revision 1.23  1998/10/18 07:51:10  adam
  * Changed one logf call.
  *
  * Revision 1.22  1998/10/16 08:14:37  adam
@@ -166,7 +175,7 @@
 #include <stdio.h>
 #include <assert.h>
 #include <sys/types.h>
-#ifndef WINDOWS
+#ifndef WIN32
 #include <unistd.h>
 #endif
 
@@ -460,6 +469,7 @@ static int grs_retrieve(struct recRetrieveCtrl *p)
     int res, selected = 0;
     NMEM mem;
     struct grs_read_info gri;
+    char *tagname;
     
     mem = nmem_create();
     gri.readf = p->readf;
@@ -489,22 +499,24 @@ static int grs_retrieve(struct recRetrieveCtrl *p)
 	dnew->u.data.len = strlen(dnew->u.data.data);
     }
 
-    logf (LOG_DEBUG, "grs_retrieve: score");
-    if (p->score >= 0 && (dnew =
+    tagname = res_get_def(p->res, "tagrank", "rank");
+    if (strcmp(tagname, "0") && p->score >= 0 && (dnew =
 			  data1_insert_taggeddata(p->dh, node,
-						  node, "rank",
+						  node, tagname,
 						  mem)))
     {
+        logf (LOG_DEBUG, "grs_retrieve: %s", tagname);
 	dnew->u.data.what = DATA1I_num;
 	dnew->u.data.data = dnew->lbuf;
 	sprintf(dnew->u.data.data, "%d", p->score);
 	dnew->u.data.len = strlen(dnew->u.data.data);
     }
 
-    logf (LOG_DEBUG, "grs_retrieve: localControlNumber");
-    if (p->localno > 0 && (dnew = data1_insert_taggeddata(p->dh, node, node,
-				       "localControlNumber", mem)))
+    tagname = res_get_def(p->res, "tagsysno", "localControlNumber");
+    if (strcmp(tagname, "0") && p->localno > 0 &&
+   	 (dnew = data1_insert_taggeddata(p->dh, node, node, tagname, mem)))
     {
+        logf (LOG_DEBUG, "grs_retrieve: %s", tagname);
 	dnew->u.data.what = DATA1I_text;
 	dnew->u.data.data = dnew->lbuf;
 	sprintf(dnew->u.data.data, "%d", p->localno);
@@ -617,11 +629,23 @@ static int grs_retrieve(struct recRetrieveCtrl *p)
 	    if (!(p->rec_buf = data1_nodetobuf(p->dh, node, selected,
 		(int*)&p->rec_len)))
 		p->diagnostic = 238;
+	    else
+	    {
+		char *new_buf = (char*) odr_malloc (p->odr, p->rec_len);
+		memcpy (new_buf, p->rec_buf, p->rec_len);
+		p->rec_buf = new_buf;
+	    }
 	    break;
 	case VAL_SOIF:
 	    if (!(p->rec_buf = data1_nodetosoif(p->dh, node, selected,
 						(int*)&p->rec_len)))
 		p->diagnostic = 238;
+	    else
+	    {
+		char *new_buf = (char*) odr_malloc (p->odr, p->rec_len);
+		memcpy (new_buf, p->rec_buf, p->rec_len);
+		p->rec_buf = new_buf;
+	    }
 	    break;
 	default:
             if (!node->u.root.absyn)
@@ -641,9 +665,12 @@ static int grs_retrieve(struct recRetrieveCtrl *p)
 	    if (!(p->rec_buf = data1_nodetomarc(p->dh, marctab, node,
 						selected,
 						(int*)&p->rec_len)))
-	    {
 		p->diagnostic = 238;
-		break;
+	    else
+	    {
+		char *new_buf = (char*) odr_malloc (p->odr, p->rec_len);
+		memcpy (new_buf, p->rec_buf, p->rec_len);
+		p->rec_buf = new_buf;
 	    }
     }
     if (node)