+ else if (rec->which == Z_External_OPAC)
+ {
+ if (!sdb->yaz_marc)
+ {
+ yaz_log(YLOG_WARN, "MARC decoding not configured");
+ return 0;
+ }
+ else
+ {
+ /* OPAC gets converted to XML too */
+ WRBUF wrbuf_opac = wrbuf_alloc();
+ /* MARCXML inside the OPAC XML. Charset is in effect because we
+ use the yaz_marc handle */
+ yaz_marc_xml(sdb->yaz_marc, YAZ_MARC_MARCXML);
+ yaz_opac_decode_wrbuf(sdb->yaz_marc, rec->u.opac, wrbuf_opac);
+
+ rdoc = xmlParseMemory((char*) wrbuf_buf(wrbuf_opac),
+ wrbuf_len(wrbuf_opac));
+ if (!rdoc)
+ {
+ yaz_log(YLOG_WARN, "Unable to parse OPAC XML");
+ /* Was used to debug bug #1348 */
+#if 0
+ FILE *f = fopen("/tmp/opac.xml.txt", "wb");
+ if (f)
+ {
+ fwrite(wrbuf_buf(wrbuf_opac), 1, wrbuf_len(wrbuf_opac), f);
+ fclose(f);
+ }
+#endif
+ }
+ wrbuf_destroy(wrbuf_opac);
+ }
+ }