-/* $Id: mod_dom.c,v 1.36 2007-04-16 21:54:37 adam Exp $
+/* $Id: mod_dom.c,v 1.37 2007-05-19 19:44:14 adam Exp $
Copyright (C) 1995-2007
Index Data ApS
{
xmlChar *text = xmlNodeGetContent(node);
size_t text_len = strlen((const char *)text);
-
+
/* if there is no text, we do not need to proceed */
if (text_len)
{
}
/* actually indexing the text given */
- dom_log(YLOG_DEBUG, tinfo, 0,
- "INDEX '%s:%s' '%s'",
- index ? (const char *) index : "null",
- type ? (const char *) type : "null",
- text ? (const char *) text : "null");
recword->index_name = (const char *)index;
if (type && *type)
params[0] = 0;
set_param_str(params, "schema", zebra_dom_ns, tinfo->odr_record);
+ if (p && p->flagShowRecords)
+ {
+ xmlChar *buf_out;
+ int len_out;
+#if 0
+ FILE *outf = fopen("extract.xml", "w");
+ xmlDocDumpMemory(doc, &buf_out, &len_out);
+ fwrite(buf_out, 1, len_out, outf);
+#endif
+ yaz_log(YLOG_LOG, "Extract Doc: %.*s", len_out, buf_out);
+#if 0
+ fclose(outf);
+#endif
+ }
+
/* input conversion */
perform_convert(tinfo, p, input->convert, params, &doc, 0);
+
if (tinfo->store)
{
/* store conversion */
{
xmlDocPtr rdoc;
xmlNode *root_ptr;
- yaz_marc_write_xml(input->u.marc.handle, &root_ptr, 0, 0, 0);
+ yaz_marc_write_xml(input->u.marc.handle, &root_ptr,
+ "http://www.loc.gov/MARC21/slim", 0, 0);
rdoc = xmlNewDoc((const xmlChar*) "1.0");
xmlDocSetRootElement(rdoc, root_ptr);
return convert_extract_doc(tinfo, input, p, rdoc);
xmlns:z="http://indexdata.com/zebra-2.0"
exclude-result-prefixes="m z"
version="1.0">
- <!-- $Id: dom-index-element.xsl,v 1.2 2007-02-15 15:41:16 marc Exp $ -->
+ <!-- $Id: dom-index-element.xsl,v 1.3 2007-05-19 19:44:14 adam Exp $ -->
<xsl:output indent="yes" method="xml" version="1.0" encoding="UTF-8"/>
</z:index>
</xsl:template>
- <xsl:template match="m:datafield[@tag='245']/m:subfield[@code='a']">
+ <xsl:template match="m:datafield[@tag='245']">
<z:index name="title:w title:p title:s any:w">
- <xsl:value-of select="."/>
+ <xsl:value-of select="m:subfield[@code='a']"/>
</z:index>
</xsl:template>