fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington
2019-08-27 16:03:48 +01:00
parent 2aa8035a70
commit 35bc734fff
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
cpdf.ml
View File

@@ -3484,7 +3484,7 @@ let get_xmp_info pdf name =
(* Set XMP info *) (* Set XMP info *)
let rec set_xml_field kind fieldname value = function let rec set_xml_field kind fieldname value = function
D data -> D data D data -> D data
| E (((n, n'), m), [D _]) when n = kind && n' = fieldname -> | E (((n, n'), m), _ (*[D _]*)) when n = kind && n' = fieldname ->
E (((n, n'), m), [D value]) E (((n, n'), m), [D value])
| E (x, ts) -> E (x, List.map (set_xml_field kind fieldname value) ts) | E (x, ts) -> E (x, List.map (set_xml_field kind fieldname value) ts)