From d865b149580df44c15c19819a227c25dd1172562 Mon Sep 17 00:00:00 2001 From: Geert Janssens Date: Thu, 28 Jun 2018 13:20:34 +0200 Subject: [PATCH] Revert "html-utilities.scm: simplify" This reverts commit 4c55141d963452a2381a5bd5b3d4fe31bde2cd2c. and should fix the regression it caused as reported in https://bugzilla.gnome.org/show_bug.cgi?id=796696 --- gnucash/report/report-system/html-utilities.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gnucash/report/report-system/html-utilities.scm b/gnucash/report/report-system/html-utilities.scm index f67a9a5523..a701ff2bde 100644 --- a/gnucash/report/report-system/html-utilities.scm +++ b/gnucash/report/report-system/html-utilities.scm @@ -27,7 +27,9 @@ ;; returns a list with n #f (empty cell) values (define (gnc:html-make-empty-cell) #f) (define (gnc:html-make-empty-cells n) - (make-list n #f)) + (if (> n 0) + (cons #f (gnc:html-make-empty-cells (- n 1))) + (list))) (define (gnc:register-guid type guid) (gnc-build-url URL-TYPE-REGISTER (string-append type guid) "")) @@ -814,8 +816,8 @@ (gnc:html-markup-p (gnc:html-markup-anchor (gnc-build-url URL-TYPE-OPTIONS - (format #f "report-id=~a" report-id) - "") + (string-append "report-id=" (format #f "~a" report-id)) + "") (_ "Edit report options"))))) (define* (gnc:html-render-options-changed options #:optional plaintext?)