diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2020-07-26 17:04:13 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2020-07-26 17:04:13 +0200 |
| commit | 18898e2d2616eac3f95b34f73db0a7ae74db5f33 (patch) | |
| tree | c7d6f22e6e2832504b6229ed7f40944976db47e5 | |
| parent | 7169de11db036b4da45a8b7160134637043126d9 (diff) | |
Correct ISBN insertion in cover
| -rw-r--r-- | utils/cover/cover.scm | 6 |
1 files changed, 4 insertions, 2 deletions
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 |