@@ -343,7 +343,8 @@ metadataElement version metadataXML uuid lang title authors date currentTime mbC
343343 [ unode "dc:language" lang | not (elt `contains` "language") ] ++
344344 [ unode "dc:identifier" ! [("id","BookId")] $ show uuid |
345345 not (elt `contains` "identifier") ] ++
346− [ unode "dc:creator" ! [("opf:role","aut")] $ a | a <- authors ] ++
346+ [ unode "dc:creator" ! [("opf:role","aut") | version == EPUB2]
347+ $ a | a <- authors ] ++
347348 [ unode "dc:date" date | not (elt `contains` "date") ] ++
348349 [ unode "meta" ! [("property", "dcterms:modified")] $
349350 (showDateTimeISO8601 currentTime) | version == EPUB3 ] ++