More work on new MARC anchor functions.

[egate.git] / util / iso2709o.c

diff --git a/util/iso2709o.c b/util/iso2709o.c
index 1af8693..8588ea1 100644 (file)
--- a/util/iso2709o.c
+++ b/util/iso2709o.c
@@ -4,7 +4,10 @@
  * Europagate, 1995.
  *
  * $Log: iso2709o.c,v $
- * Revision 1.1  1995/03/28 16:07:07  adam
+ * Revision 1.2  1995/03/30 14:22:19  adam
+ * More work on new MARC anchor functions.
+ *
+ * Revision 1.1  1995/03/28  16:07:07  adam
  * New function: iso2709_out. This function is the reverse of iso2709_cvt.
  *
  */
@@ -49,7 +52,7 @@ int iso2709_out (Iso2709Rec p, char **buf, int bsize)
             len += p->indicator_length;
         for (field = dir->fields; field; field = field->next)
         {
-            if (field->identifier)
+            if (*field->identifier)
                 len += p->identifier_length;
             len += strlen (field->data);
         }
@@ -93,7 +96,7 @@ int iso2709_out (Iso2709Rec p, char **buf, int bsize)
         }
         for (field = dir->fields; field; field = field->next)
         {
-            if (field->identifier)
+            if (*field->identifier)
             {
                 op[data_p] = ISO2709_IDFS;
                 memcpy (op + data_p+1, field->identifier,