From 18898e2d2616eac3f95b34f73db0a7ae74db5f33 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Sun, 26 Jul 2020 17:04:13 +0200 Subject: Correct ISBN insertion in cover --- utils/cover/cover.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'utils/cover/cover.scm') diff --git a/utils/cover/cover.scm b/utils/cover/cover.scm index 0cc573e..0ea1884 100644 --- a/utils/cover/cover.scm +++ b/utils/cover/cover.scm @@ -87,8 +87,10 @@ (page-width 176) ;mm (margin 3) ;mm - (isbn (if (equal? "" (get-string 'isbn metadata)) - "0000000000000")) + (isbn (let ((isbnstr (get-string 'isbn metadata))) + (if (equal? "" isbnstr) + "0000000000000" + (get-string 'isbn metadata)))) (book-title (get-string 'title metadata)) (book-subtitle (get-string 'subtitle metadata)) (book-title-before "") ; TODO: Thinking about removing this -- cgit v1.2.3