fix for new perl (redundant defined)

[librarian.git] / scripts / book2cover

diff --git a/scripts/book2cover b/scripts/book2cover
index 3cc0ed7..444563c 100755 (executable)
--- a/scripts/book2cover
+++ b/scripts/book2cover
@@ -15,9 +15,16 @@ class Book2Cover(Book2Anything):
     uses_cover = True
     cover_optional = False
 
     uses_cover = True
     cover_optional = False
 

+    transform_options = [
+        Option('-W', '--width', action='store', type='int', dest='width', default=None,
+                help='Set width.'),
+        Option('-H', '--height', action='store', type='int', dest='height', default=None,
+                help='Set height.'),
+    ]
+

     @staticmethod
     @staticmethod

-    def transform(wldoc, cover):
-        return wldoc.as_cover(cover_class=cover)
+    def transform(wldoc, cover, *args, **kwargs):
+        return wldoc.as_cover(cover_class=cover, *args, **kwargs)

 
 
 if __name__ == '__main__':
 
 
 if __name__ == '__main__':