X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=recctrl%2Frecgrs.c;h=0e44cf2c6a33e300e59b079f1227561768bd6d4f;hb=c8504e6a297055834322bd89b52e8410f549f337;hp=43836c8abd59e445f64064aafc1169008fe3ce6c;hpb=053e1a276c3678355e3243837e81a349cda7fe9d;p=idzebra-moved-to-github.git

diff --git a/recctrl/recgrs.c b/recctrl/recgrs.c
index 43836c8..0e44cf2 100644
--- a/recctrl/recgrs.c
+++ b/recctrl/recgrs.c
@@ -1,4 +1,4 @@
-/* $Id: recgrs.c,v 1.67 2002-09-24 19:45:14 adam Exp $
+/* $Id: recgrs.c,v 1.69 2002-11-15 21:57:41 adam Exp $
    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
    Index Data Aps
 
@@ -102,6 +102,9 @@ static void *grs_init(RecType recType)
 #if HAVE_EXPAT_H
     grs_add_handler (h, recTypeGrs_xml);
 #endif
+#if HAVE_PERL
+    grs_add_handler (h, recTypeGrs_perl);
+#endif
     return h;
 }
 
@@ -804,9 +807,7 @@ static int grs_retrieve(void *clientData, struct recRetrieveCtrl *p)
 		sprintf(p, "%d", *ii);
 		p += strlen(p);
 	    }
-	    *(p++) = '\0';
-		
-	    if ((dnew = data1_mk_tag_data_wd(dh, node, 
+	    if ((dnew = data1_mk_tag_data_wd(dh, top, 
                                              "schemaIdentifier", mem)))
 	    {
 		dnew->u.data.what = DATA1I_oid;