Changed syntax of element specs in GRS-1 retrieval.

diff --git a/CHANGELOG b/CHANGELOG
index 3bd8b44..b161206 100644 (file)
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,4 +1,4 @@
-$Id: CHANGELOG,v 1.16 1996-05-29 06:37:40 adam Exp $
+$Id: CHANGELOG,v 1.17 1996-06-05 08:59:22 adam Exp $
 
 06/19/95 Release of ir-tcl-1.0b
 ------------------------------------------------------
@@ -84,6 +84,6 @@ $Id: CHANGELOG,v 1.16 1996-05-29 06:37:40 adam Exp $
          oid utilities.
 
 29/05/96 Set function getGrs enhanced so that specific elements can be
-         extracted by <tagType>.<tagVal> - pairs.
+         extracted by (<tagType>,<tagVal>) - pairs.
 
 

diff --git a/grs.c b/grs.c
index b8e9548..fa8de69 100644 (file)
--- a/grs.c
+++ b/grs.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: grs.c,v $
- * Revision 1.5  1996-05-29 20:28:08  adam
+ * Revision 1.6  1996-06-05 08:59:23  adam
+ * Changed syntax of element specs in GRS-1 retrieval.
+ *
+ * Revision 1.5  1996/05/29  20:28:08  adam
  * Bug fix: Function ir_tcl_grs_del sometimes free'd bad memory.
  *
  * Revision 1.4  1996/05/29  06:37:42  adam
@@ -174,12 +177,14 @@ static int ir_tcl_get_grs_r (Tcl_Interp *interp, IrTcl_GRS_Record *grs_record,
         else
         {
             const char *cp0 = argv[argno];
-            const char *cp1 = strchr (cp0, '.');
+            const char *cp1 = strchr (cp0, ',');
 
             if (!cp1 || cp1-cp0 < 1)
                 yes = 1;
             else
             {
+                if (*cp0 == '(')
+                    cp++;
                 if (atoi(cp0) == e->tagType) 
                 {
                     if (e->tagWhich == Z_StringOrNumeric_numeric)