Fix font-optimizer for Perl 5.18.

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

diff --git a/librarian/pdf/wl2tex.xslt b/librarian/pdf/wl2tex.xslt
index e294beb..d39b61a 100644 (file)
--- a/librarian/pdf/wl2tex.xslt
+++ b/librarian/pdf/wl2tex.xslt
@@ -60,8 +60,8 @@
         <env name="document">
             <xsl:if test="@data-cover-width">
                 <cmd name="makecover">
         <env name="document">
             <xsl:if test="@data-cover-width">
                 <cmd name="makecover">

-                    <parm><xsl:value-of select="210 * @data-cover-width div @data-cover-height" />mm</parm>

                     <parm>210mm</parm>
                     <parm>210mm</parm>

+                    <parm><xsl:value-of select="210 * @data-cover-height div @data-cover-width" />mm</parm>

                 </cmd>
             </xsl:if>
                 <xsl:if test="@thanks">
                 </cmd>
             </xsl:if>
                 <xsl:if test="@thanks">