* 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.
*
*/
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);
}
}
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,