From 7c7cef5aedb66ab0d021478989a92db84beef065 Mon Sep 17 00:00:00 2001 From: christopherlam Date: Fri, 25 Aug 2017 17:13:54 +0800 Subject: [PATCH] Reduce to compatibility shim Reduce option to retain compatibility layer for earlier 2.8 --- gnucash/report/standard-reports/transaction.scm | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/gnucash/report/standard-reports/transaction.scm b/gnucash/report/standard-reports/transaction.scm index 80fd782e05..af33bf9145 100644 --- a/gnucash/report/standard-reports/transaction.scm +++ b/gnucash/report/standard-reports/transaction.scm @@ -33,7 +33,6 @@ (use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing. (use-modules (srfi srfi-1)) -(use-modules (srfi srfi-13)) (use-modules (gnucash gnc-module)) (use-modules (gnucash gettext)) @@ -656,7 +655,7 @@ gnc:pagename-accounts (N_ "Account Substring") "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 \ -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 @@ -1446,7 +1445,6 @@ Credit Card, and Income accounts."))))) (gnc:report-starting reportname) (let ((document (gnc:make-html-document)) (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...")) (filter-mode (opt-val gnc:pagename-accounts "Filter Type")) (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 "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))) (begin (qof-query-set-book query (gnc-get-current-book))