gnucash maint: Revert "html-utilities.scm: simplify"

[Geert Janssens]

Updated	 via  https://github.com/Gnucash/gnucash/commit/d865b149 (commit)
	from  https://github.com/Gnucash/gnucash/commit/f7ed46a3 (commit)



commit d865b149580df44c15c19819a227c25dd1172562
Author: Geert Janssens <geert at kobaltwit.be>
Date:   Thu Jun 28 13:20:34 2018 +0200

    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

diff --git a/gnucash/report/report-system/html-utilities.scm b/gnucash/report/report-system/html-utilities.scm
index f67a9a5..a701ff2 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?)



Summary of changes:
 gnucash/report/report-system/html-utilities.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)