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

Reduce to compatibility shim

Browse Source 
Reduce option to retain compatibility layer for earlier 2.8
This commit is contained in:
christopherlam 2017-08-25 17:13:54 +08:00 committed by Geert Janssens
parent bdfe184af6
commit 7c7cef5aed
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnucash/report/standard-reports/transaction.scm
View File

@ -33,7 +33,6 @@
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing. (use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-modules (srfi srfi-13))
(use-modules (gnucash gnc-module)) (use-modules (gnucash gnc-module))
(use-modules (gnucash gettext)) (use-modules (gnucash gettext))
@ -656,7 +655,7 @@
gnc:pagename-accounts (N_ "Account Substring") gnc:pagename-accounts (N_ "Account Substring")
"a5" (N_ "Match only above accounts whose fullname contains substring e.g. ':Travel' will \ "a5" (N_ "Match only above accounts whose fullname contains substring e.g. ':Travel' will \
match Expenses:Travel:Holiday and Expenses:Business:Travel. Can be left blank, which will \ match Expenses:Travel:Holiday and Expenses:Business:Travel. Can be left blank, which will \
disable the substring filter. This filter is case-sensitive.") disable the substring filter. This filter is case-sensitive. Gnucash 2.8 or later.")
"")) ""))
(gnc:register-trep-option (gnc:register-trep-option
@ -1446,7 +1445,6 @@ Credit Card, and Income accounts.")))))
(gnc:report-starting reportname) (gnc:report-starting reportname)
(let ((document (gnc:make-html-document)) (let ((document (gnc:make-html-document))
(c_account_1 (opt-val gnc:pagename-accounts "Accounts")) (c_account_1 (opt-val gnc:pagename-accounts "Accounts"))
(c_account_substring (opt-val gnc:pagename-accounts "Account Substring"))
(c_account_2 (opt-val gnc:pagename-accounts "Filter By...")) (c_account_2 (opt-val gnc:pagename-accounts "Filter By..."))
(filter-mode (opt-val gnc:pagename-accounts "Filter Type")) (filter-mode (opt-val gnc:pagename-accounts "Filter Type"))
(begindate (gnc:timepair-start-day-time (begindate (gnc:timepair-start-day-time
@ -1469,11 +1467,6 @@ Credit Card, and Income accounts.")))))
;;(gnc:warn "accts in trep-renderer:" c_account_1) ;;(gnc:warn "accts in trep-renderer:" c_account_1)
;;(gnc:warn "Report Account names:" (get-other-account-names c_account_1)) ;;(gnc:warn "Report Account names:" (get-other-account-names c_account_1))
(set! c_account_1
(filter (lambda (acc)
(string-contains (gnc-account-get-full-name acc) c_account_substring))
c_account_1))
(if (not (or (null? c_account_1) (and-map not c_account_1))) (if (not (or (null? c_account_1) (and-map not c_account_1)))
(begin (begin
(qof-query-set-book query (gnc-get-current-book)) (qof-query-set-book query (gnc-get-current-book))