fix for new perl (redundant defined)

[librarian.git] / librarian / pdf / wl2tex.xslt

diff --git a/librarian/pdf/wl2tex.xslt b/librarian/pdf/wl2tex.xslt
index c3054d2..43092e7 100644 (file)
--- a/librarian/pdf/wl2tex.xslt
+++ b/librarian/pdf/wl2tex.xslt
@@ -195,7 +195,7 @@
             <xsl:if test=".//dc:publisher">
                 Wydawca:
                 <TeXML escape="1">
-                    <xsl:for-each select="//dc:publisher/text()">
+                    <xsl:for-each select=".//dc:publisher/text()">
                         <xsl:value-of select="."/>
                         <xsl:if test="not(position() = last())">, </xsl:if>
                     </xsl:for-each>
@@ -203,6 +203,10 @@
                 \vspace{.6em}
             </xsl:if>}
         \def\description{<TeXML escape="1"><xsl:apply-templates select=".//dc:description" mode="inline" /></TeXML>}
+        <xsl:if test=".//meta[@id='pdf-id']">
+            <xsl:variable name="isbn" select=".//meta[@id='pdf-id']"/>
+            \def\isbn{ISBN <xsl:value-of select="substring-after($isbn, 'ISBN-')"/>}
+        </xsl:if>
     </TeXML>
 </xsl:template>