From 6b0bfa075ca5c964e4b2df775b228271b2ecf378 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 24 Aug 2019 22:53:31 +0800 Subject: [PATCH] [register] fix Transfer acc for single-account splits single account splits shouldn't show "-- Split Transaction --" in transfer account. show "None". --- gnucash/report/standard-reports/register.scm | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/gnucash/report/standard-reports/register.scm b/gnucash/report/standard-reports/register.scm index e5673d0929..56d2e22a03 100644 --- a/gnucash/report/standard-reports/register.scm +++ b/gnucash/report/standard-reports/register.scm @@ -228,16 +228,15 @@ (addto! row-contents (gnc:make-html-table-cell/markup "text-cell" - (if split-info? - (if transaction-info? - (let ((other-split - (xaccSplitGetOtherSplit split))) - (if (not (null? other-split)) - (gnc-account-get-full-name - (xaccSplitGetAccount other-split)) - (_ "-- Split Transaction --"))) - (gnc-account-get-full-name account)) - " ")))) + (cond + ((not split-info?) #f) + ((not transaction-info?) (gnc-account-get-full-name account)) + (else (case (xaccTransCountSplits (xaccSplitGetParent split)) + ((2) (gnc-account-get-full-name + (xaccSplitGetAccount + (xaccSplitGetOtherSplit split)))) + ((1) (_ "None")) + (else (_ "-- Split Transaction --")))))))) (if (shares-col column-vector) (addto! row-contents (gnc:make-html-table-cell/markup