+
+Z_GenericRecord *data1_nodetogr(data1_handle dh, data1_node *n,
+ int select, ODR o, int *len)
+
+{
+ data1_tag *wellknown_tag = 0;
+
+ if (n->which == DATA1N_root)
+ n = data1_get_root_tag (dh, n);
+
+ if (n->root->u.root.absyn &&
+ !(wellknown_tag =
+ data1_gettagbyname (dh, n->root->u.root.absyn->tagset,
+ "wellKnown")))
+ {
+ yaz_log(YLOG_WARN, "Unable to locate tag for 'wellKnown'");
+ wellknown_tag = odr_malloc(o, sizeof(*wellknown_tag));
+ wellknown_tag->which = DATA1T_numeric;
+ wellknown_tag->value.numeric = 19;
+ wellknown_tag->next = 0;
+ wellknown_tag->tagset = odr_malloc(o, sizeof(*wellknown_tag->tagset));
+ wellknown_tag->tagset->type = 1;
+ wellknown_tag->kind = DATA1K_string;
+ }
+ return data1_nodetogr_r(dh, n, select, o, len, wellknown_tag);
+}
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+