fix for new perl (redundant defined)

[librarian.git] / librarian / fb2 / description.xslt

diff --git a/librarian/fb2/description.xslt b/librarian/fb2/description.xslt
index 312df2d..6d7383f 100644 (file)
--- a/librarian/fb2/description.xslt
+++ b/librarian/fb2/description.xslt
@@ -46,8 +46,12 @@
                                <version>0</version>
                        </document-info>
                        <publish-info>
                                <version>0</version>
                        </document-info>
                        <publish-info>

-                               <xsl:apply-templates mode="description"
-                                       select="dc:publisher"/>
+                               <publisher>
+                                       <xsl:for-each select="//dc:publisher/text()">
+                                               <xsl:value-of select="."/>
+                                               <xsl:if test="not(position() = last())">; </xsl:if>
+                                       </xsl:for-each>
+                               </publisher>

                        </publish-info>
                </description>
        </xsl:template>
                        </publish-info>
                </description>
        </xsl:template>