IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[view-column] various modernisation fixes

Browse Source
This commit is contained in:
Christopher Lam
2019-03-30 20:12:20 +08:00
parent 528d4b52b8
commit 6bca71f03b
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
gnucash/report/utility-reports/view-column.scm
View File

@@ -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"))
"&nbsp;"
" "
(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")))))