From 6bca71f03b5de484b43d77d4c21d517893830b8a Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 30 Mar 2019 20:12:20 +0800 Subject: [PATCH] [view-column] various modernisation fixes --- gnucash/report/utility-reports/view-column.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/gnucash/report/utility-reports/view-column.scm b/gnucash/report/utility-reports/view-column.scm index 4cfdb84192..b9ab5848d2 100644 --- a/gnucash/report/utility-reports/view-column.scm +++ b/gnucash/report/utility-reports/view-column.scm @@ -144,9 +144,7 @@ ;; increment the alloc number for each occupied row (let loop ((row current-row-num)) - (let ((allocation (hash-ref column-allocs row))) - (if (not allocation) - (set! allocation 0)) + (let ((allocation (hash-ref column-allocs row 0))) (hash-set! column-allocs row (+ colspan allocation)) (if (< (+ 1 (- row current-row-num)) rowspan) (loop (+ 1 row))))) @@ -166,16 +164,14 @@ (gnc:html-markup-anchor (gnc-build-url URL-TYPE-OPTIONS - (string-append "report-id=" - (format #f "~a" (car report-info))) + (format #f "report-id=~a" (car report-info)) "") (_ "Edit Options")) - " " + " " (gnc:html-markup-anchor (gnc-build-url URL-TYPE-REPORT - (string-append "id=" - (format #f "~a" (car report-info))) + (format #f "id=~a" (car report-info)) "") (_ "Single Report")))))