mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-03-10 00:20:06 +01:00
Fix UTF8 in Xmlm for XMP additions
This commit is contained in:
parent
44675bbecf
commit
618da13a80
@ -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"
|
||||
|
Loading…
x
Reference in New Issue
Block a user