From 29ac4c8a646fcf343431763737a6c249630f0ce5 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 1 Nov 2023 18:55:23 +0000
Subject: [PATCH] Closer with subformats

---
 cpdfmetadata.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/cpdfmetadata.ml b/cpdfmetadata.ml
index cbe6659..f19b401 100644
--- a/cpdfmetadata.ml
+++ b/cpdfmetadata.ml
@@ -326,6 +326,8 @@ let rec get_data_for namespace name = function
    PDF/VT: <pdfxid:GTS_PDFXVersion>PDF/X-4</pdfxid:GTS_PDFXVersion> <pdfvtid:GTS_PDFVTVersion>PDF/VT-1</pdfvtid:GTS_PDFVTVersion>
    -PDF/UA: <pdfuaid:part>1</pdfuaid:part>
    PDF/X: <pdfxid:GTS_PDFXVersion>PDF/X-4</pdfxid:GTS_PDFXVersion> (Fallback DID /GTS_PDFXVersion(PDF/X-1:2001)) *)
+
+(* FIXME Can it have multiple subformats? *)
 let determine_subformat pdf =
   match get_metadata pdf with
   | None -> "PDF"
@@ -335,9 +337,7 @@ let determine_subformat pdf =
         flprint (string_of_xmltree tree);
           (* PDF/E *)
           match get_data_for pdfe "ISO_PDFEVersion" tree with
-          | Some s ->
-              (* If also a pdfxid, print that in parentheses *)
-              s
+          | Some s -> s
           | None ->
               (* PDF/UA *)
               match get_data_for pdfuaid "part" tree with