X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=explain.c;h=539d23126e2540ff1c83d9e111efd1c26b175453;hb=d026c3e06f6e19e5ed4174ab1a504a4b5af79183;hp=63962cf3eb8bf4737c394e0e03cebd8a813e7be3;hpb=ac6763fcd5733b835f53736dce8e7152a879c157;p=ir-tcl-moved-to-github.git

diff --git a/explain.c b/explain.c
index 63962cf..539d231 100644
--- a/explain.c
+++ b/explain.c
@@ -5,7 +5,13 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: explain.c,v $
- * Revision 1.11  1998-05-20 12:24:41  adam
+ * Revision 1.13  2003-02-18 10:31:38  adam
+ * Minor change
+ *
+ * Revision 1.12  2003/02/18 10:28:00  adam
+ * Fix for new schema definition
+ *
+ * Revision 1.11  1998/05/20 12:24:41  adam
  * Fixed bug regaring missing element languages in TargetInfo.
  * Changed code so that it works with ASN.1 compiled YAZ code.
  *
@@ -1594,7 +1600,12 @@ static int ir_Specification (IrExpArg *iea,
 {
     if (!ir_match_start (name, p, iea, ++argi))
         return TCL_OK;
+#if YAZ_VERSIONL >= 0x010903L
+    if (p->which == Z_Schema_oid)
+       ir_oid (iea, p->schema.oid, "schema", argi);
+#else
     ir_oid (iea, p->schema, "schema", argi);
+#endif
     ir_ElementSpec (iea, p->elementSpec, "elementSpec", argi);
     return ir_match_end (name, iea, argi);
 }