mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-06-05 22:09:39 +02:00
Fix UTF8 in Xmlm for XMP additions
This commit is contained in:
@ -337,7 +337,7 @@ let set_pdf_info_xml kind fieldname value xmldata pdf =
|
|||||||
let dtd, tree = xmltree_of_bytes xmldata in
|
let dtd, tree = xmltree_of_bytes xmldata in
|
||||||
let str =
|
let str =
|
||||||
match value with
|
match value with
|
||||||
Pdf.String s -> s
|
Pdf.String s -> Pdftext.utf8_of_pdfdocstring s
|
||||||
| Pdf.Boolean true -> "True"
|
| Pdf.Boolean true -> "True"
|
||||||
| Pdf.Boolean false -> "False"
|
| Pdf.Boolean false -> "False"
|
||||||
| _ -> failwith "set_pdf_info_xml: not a string"
|
| _ -> failwith "set_pdf_info_xml: not a string"
|
||||||
|
Reference in New Issue
Block a user