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

[html-acct-table] remove dead code

Browse Source 
balance-mode being 'pre-adjusting has never been used in code since
introduction in 2007 in v2.0.
This commit is contained in:
Christopher Lam 2021-02-11 22:33:07 +08:00
parent 14d444fa33
commit 1b41d517d2
1 changed files with 2 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnucash/report/html-acct-table.scm
View File

@ -227,19 +227,11 @@
;; account having a balance of zero. otherwise, a row will be ;; account having a balance of zero. otherwise, a row will be
;; generated for the account. ;; generated for the account.
;; ;;
;; balance-mode: 'pre-adjusting 'pre-closing 'post-closing ;; balance-mode: 'pre-closing 'post-closing
;; ;;
;; indicates whether or not to ignore adjusting/closing ;; indicates whether or not to ignore adjusting/closing
;; entries when computing account balances. 'pre-closing ;; entries when computing account balances. 'pre-closing
;; ignores only closing entries. 'pre-adjusting also ignores ;; ignores, 'post-closing counts closing entries.
;; adjusting entries. 'post-closing counts all entries.
;;
;; adjusting-pattern: alist of 'str 'cased 'regexp
;;
;; a pattern alist, as accepted by
;; gnc:account-get-trans-type-balance-interval, matching
;; adjusting transactions to be ignored when balance-mode is
;; 'pre-adjusting.
;; ;;
;; closing-pattern: alist of 'str 'cased 'regexp ;; closing-pattern: alist of 'str 'cased 'regexp
;; ;;
@ -631,11 +623,6 @@
(list 'cased #f) (list 'cased #f)
(list 'regexp #f) (list 'regexp #f)
(list 'closing #t)))) (list 'closing #t))))
(adjusting-pattern (or (get-val env 'adjusting-pattern)
(list
(list 'str (G_ "Adjusting Entries"))
(list 'cased #f)
(list 'regexp #f))))
(report-budget (or (get-val env 'report-budget) #f)) (report-budget (or (get-val env 'report-budget) #f))
;; local variables ;; local variables
(toplvl-accts (toplvl-accts
@ -684,13 +671,6 @@
(merge-splits (gnc:account-get-trans-type-splits-interval (merge-splits (gnc:account-get-trans-type-splits-interval
accts closing-pattern start-date end-date) #t)) accts closing-pattern start-date end-date) #t))
;; remove closing and adjusting entries
((pre-adjusting)
(merge-splits (gnc:account-get-trans-type-splits-interval
accts closing-pattern start-date end-date) #t)
(merge-splits (gnc:account-get-trans-type-splits-interval
accts adjusting-pattern start-date end-date) #t))
(else (else
(display "you fail it\n")))) (display "you fail it\n"))))