[gs-cvs] rev 6891 - trunk/gs/src

[leonardo at ghostscript.com]

Author: leonardo
Date: 2006-07-05 03:26:03 -0700 (Wed, 05 Jul 2006)
New Revision: 6891

Modified:
   trunk/gs/src/gdevpdfe.c
Log:
Fix (pdfwrite) : Write out the PDF/A compliance label.

DETAILS :

Bug 688742 "PDF/A label missing error in Acrobat preflight".
Patch from Eduard Tiganas.

EXPECTED DIFFERENCES :

None.


Modified: trunk/gs/src/gdevpdfe.c
===================================================================
--- trunk/gs/src/gdevpdfe.c	2006-07-04 23:13:13 UTC (rev 6890)
+++ trunk/gs/src/gdevpdfe.c	2006-07-05 10:26:03 UTC (rev 6891)
@@ -393,6 +393,19 @@
 	    }
 	    pdf_xml_tag_close(s, "rdf:Description");
 	    pdf_xml_newline(s);
+	    if (pdev->PDFA) {
+		pdf_xml_tag_open_beg(s, "rdf:Description");
+		pdf_xml_attribute_name(s, "rdf:about");
+		pdf_xml_attribute_value(s, "");
+		pdf_xml_attribute_name(s, "xmlns:pdfaid");
+		pdf_xml_attribute_value(s, "http://www.aiim.org/pdfa/ns/id.html");
+		pdf_xml_attribute_name(s, "pdfaid:part");
+		pdf_xml_attribute_value(s,"1");
+		pdf_xml_attribute_name(s, "pdfaid:conformance");
+		pdf_xml_attribute_value(s,"B");
+		pdf_xml_tag_end(s);
+		pdf_xml_tag_close(s, "rdf:Description");
+	   }
 	}
 	pdf_xml_copy(s, "</rdf:RDF>\n");
     }