fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix UTF8 in Xmlm for XMP additions

This commit is contained in:
John Whitington 2021-12-29 19:46:55 +00:00
parent 44675bbecf
commit 618da13a80
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfmetadata.ml
View File

@ -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"