Fix UTF8 in Xmlm for XMP additions

2021-12-29 19:46:55 +00:00 · 2021-12-29 19:46:55 +00:00 · 618da13a80
parent 44675bbecf
commit 618da13a80
1 changed files with 1 additions and 1 deletions
--- a/cpdfmetadata.ml
+++ b/cpdfmetadata.ml
@ -337,7 +337,7 @@ let set_pdf_info_xml kind fieldname value xmldata pdf =
  let dtd, tree = xmltree_of_bytes xmldata in
  let str =
    match value with
-      Pdf.String s -> s
+      Pdf.String s -> Pdftext.utf8_of_pdfdocstring s
    | Pdf.Boolean true -> "True"
    | Pdf.Boolean false -> "False"
    | _ -> failwith "set_pdf_info_xml: not a string"