EPUB writer: Don't add dc:creator tags if present in epub metadata.

This commit is contained in:
John MacFarlane 2013-03-20 13:10:03 -07:00
parent 375c53869d
commit ff9af6c9e5

View file

@ -390,7 +390,7 @@ metadataElement version metadataXML uuid lang title authors date currentTime mbC
[ unode "dc:identifier" ! [("id","BookId")] $ show uuid |
not (elt `contains` "identifier") ] ++
[ unode "dc:creator" ! [("opf:role","aut") | version == EPUB2]
$ a | a <- authors ] ++
$ a | a <- authors, not (elt `contains` "creator") ] ++
[ unode "dc:date" date | not (elt `contains` "date") ] ++
[ unode "meta" ! [("property", "dcterms:modified")] $
(showDateTimeISO8601 currentTime) | version == EPUB3] ++