@@ -130,8 +130,8 @@ pandocToODT opts doc@(Pandoc meta _) = do
130130 let escapedText = text . escapeStringForXML
131131 let userDefinedMeta =
132132 map (\k -> inTags False "meta:user-defined"
133− [ ("meta_name", escapeStringForXML k)
134− ,("meta-value-type", "string")
133+ [ ("meta:name", escapeStringForXML k)
134+ ,("meta:value-type", "string")
135135 ] (escapedText $ lookupMetaString k meta)) userDefinedMetaFields
136136 let metaTag metafield = inTagsSimple metafield . escapedText
137137 let metaEntry = toEntry "meta.xml" epochtime