From 67fbb2322cfe4d27b6bcbd8452e8003fa41cd2ad Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Wed, 29 Jan 2020 06:00:46 +0800 Subject: [PATCH] [new-owner-report] remove unused code --- .../report/business-reports/new-owner-report.scm | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/gnucash/report/business-reports/new-owner-report.scm b/gnucash/report/business-reports/new-owner-report.scm index eae206fdce..c581d02a37 100644 --- a/gnucash/report/business-reports/new-owner-report.scm +++ b/gnucash/report/business-reports/new-owner-report.scm @@ -304,20 +304,6 @@ ((txn-is-link? txn) (_ "Link")) (else (_ "Unknown"))))) -;; for splits, find the first peer that is not in an APAR -;; account. this is adequate to find the transfer split (ie -;; asset/liability/income/expense account split). lot-link txns are -;; not expected to have any non-APAR split therefore returns #f. -(define (txn->transfer-split txn) - (find - (compose (negate xaccAccountIsAPARType) xaccAccountGetType xaccSplitGetAccount) - (xaccTransGetSplitList txn))) - -(define (txn->assetliab-splits txn) - (filter - (compose xaccAccountIsAssetLiabType xaccAccountGetType xaccSplitGetAccount) - (xaccTransGetSplitList txn))) - ;; input: list of html-text elements ;; output: a cell with html-text interleaved with
tags (define (list->cell lst)