fix for new perl (redundant defined)

[librarian.git] / librarian / pdf / wl.cls

diff --git a/librarian/pdf/wl.cls b/librarian/pdf/wl.cls
index 55d4897..30dbf63 100644 (file)
--- a/librarian/pdf/wl.cls
+++ b/librarian/pdf/wl.cls
@@ -259,6 +259,8 @@ Letters={SmallCaps,UppercaseSmallCaps}
     \vspace{.6em}
     \sourceinfo
 
+    \publisherinfo
+
     \description
     \vspace{.6em}
 
@@ -274,6 +276,11 @@ Letters={SmallCaps,UppercaseSmallCaps}
         \coverby
     \fi
 
+    \ifdefined\isbn
+        \vspace{.6em}
+        \isbn
+    \fi
+
     \vspace{.6em}
     \emph{Wesprzyj Wolne Lektury!}
 
@@ -445,7 +452,7 @@ Letters={Uppercase}
 \usepackage{intcalc}
 \usepackage{color}
 \definecolor{gray}{RGB}{200,200,200}
-\newcounter{parnum}
+%\newcounter{parnum}
 \newlength{\parnumwidth}
 \setlength{\parnumwidth}{3em}
 \newcommand{\N}{%
@@ -457,6 +464,8 @@ Letters={Uppercase}
   \ifnum\intcalcMod{\value{parnum}}{5}=0%
   \marginnote{\textcolor{gray}{\small{\theparnum}}}%
   \fi\reversemarginpar}
+\renewcommand{\N}{}
+\renewcommand{\Nw}{}
 
 \newcommand{\akap}[1]{%
 \par{\N#1}%