+ if (xml)
+ {
+ char str[80];
+ int i;
+ if (xml > 1)
+ {
+ wrbuf_puts(
+ wr,
+ "<oai_marc xmlns=\"http://www.openarchives.org/OIA/oai_marc\""
+ "\n"
+ " xmlns:xsi=\"http://www.w3.org/2000/10/XMLSchema-instance\""
+ "\n"
+ " xsi:schemaLocation=\"http://www.openarchives.org/OAI/oai_marc.xsd\""
+ "\n"
+ );
+
+ sprintf (str, " status=\"%c\" type=\"%c\" catForm=\"%c\">\n",
+ buf[5], buf[6], buf[7]);
+ wrbuf_puts (wr, str);
+ }
+ else
+ {
+ wrbuf_puts (wr, "<iso2709\n");
+ sprintf (str, " RecordStatus=\"%c\"\n", buf[5]);
+ wrbuf_puts (wr, str);
+ sprintf (str, " TypeOfRecord=\"%c\"\n", buf[6]);
+ wrbuf_puts (wr, str);
+ for (i = 1; i<=19; i++)
+ {
+ sprintf (str, " ImplDefined%d=\"%c\"\n", i, buf[6+i]);
+ wrbuf_puts (wr, str);
+ }
+ wrbuf_puts (wr, ">\n");
+ }
+ }