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

[new-owner-report] remove unused code

Browse Source
This commit is contained in:
Christopher Lam 2020-01-29 06:00:46 +08:00
parent b8c71e1e4f
commit 67fbb2322c
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnucash/report/business-reports/new-owner-report.scm
View File

@ -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 <br> tags
(define (list->cell lst)