From 560f31250ec8ed15644663475ce4558cdec46bac Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Fri, 15 Apr 2022 11:15:06 +0800 Subject: [PATCH] [reports] use new function names gnc:accounts-and-all-descendants-sorted gnc-accounts-and-all-descendants --- gnucash/report/html-acct-table.scm | 2 +- gnucash/report/reports/example/average-balance.scm | 2 +- gnucash/report/reports/example/daily-reports.scm | 4 ++-- gnucash/report/reports/standard/account-summary.scm | 2 +- gnucash/report/reports/standard/budget.scm | 2 +- gnucash/report/reports/standard/cash-flow.scm | 2 +- gnucash/report/reports/standard/category-barchart.scm | 4 ++-- gnucash/report/reports/standard/net-charts.scm | 2 +- gnucash/report/reports/standard/portfolio.scm | 2 +- gnucash/report/reports/standard/test/test-income-gst.scm | 4 ++-- 10 files changed, 13 insertions(+), 13 deletions(-) diff --git a/gnucash/report/html-acct-table.scm b/gnucash/report/html-acct-table.scm index d77ce79da2..9d8952fa38 100644 --- a/gnucash/report/html-acct-table.scm +++ b/gnucash/report/html-acct-table.scm @@ -697,7 +697,7 @@ (for-each (lambda (acct) (this-collector 'merge (get-balance acct-balances acct) #f)) - (gnc:accounts-and-all-descendants (list account))) + (cons account (gnc-account-get-descendants-sorted account))) this-collector)) (let lp ((accounts (if less-p (sort accts less-p) accts)) diff --git a/gnucash/report/reports/example/average-balance.scm b/gnucash/report/reports/example/average-balance.scm index 66a285a49e..d0f937b7d9 100644 --- a/gnucash/report/reports/example/average-balance.scm +++ b/gnucash/report/reports/example/average-balance.scm @@ -296,7 +296,7 @@ (accounts (get-option gnc:pagename-accounts (N_ "Accounts"))) (dosubs? (get-option gnc:pagename-accounts optname-subacct)) (accounts (if dosubs? - (gnc:accounts-and-all-descendants accounts) + (gnc-accounts-and-all-descendants accounts) accounts)) (plot-type (get-option gnc:pagename-display (N_ "Plot Type"))) (show-plot? (get-option gnc:pagename-display (N_ "Show plot"))) diff --git a/gnucash/report/reports/example/daily-reports.scm b/gnucash/report/reports/example/daily-reports.scm index 2dc965866b..239aa39cc7 100644 --- a/gnucash/report/reports/example/daily-reports.scm +++ b/gnucash/report/reports/example/daily-reports.scm @@ -186,7 +186,7 @@ ;; needed so as to amortize the cpu time properly. (gnc:report-percent-done 1) (set! commodity-list (gnc:accounts-get-commodities - (gnc:accounts-and-all-descendants accounts) + (gnc-accounts-and-all-descendants accounts) report-currency)) (gnc:report-percent-done 5) (set! exchange-fn (gnc:case-exchange-time-fn @@ -208,7 +208,7 @@ (gnc:report-percent-done 25) (if dosubs? (set! accounts - (gnc:accounts-and-all-descendants accounts))) + (gnc-accounts-and-all-descendants accounts))) (gnc:report-percent-done 30) (xaccQueryAddAccountMatch diff --git a/gnucash/report/reports/standard/account-summary.scm b/gnucash/report/reports/standard/account-summary.scm index 96b8c273f7..cd4259e0ae 100644 --- a/gnucash/report/reports/standard/account-summary.scm +++ b/gnucash/report/reports/standard/account-summary.scm @@ -444,7 +444,7 @@ (gnc:html-document-add-object! doc (gnc:html-make-rates-table report-commodity price-fn - (gnc:accounts-and-all-descendants accounts)))))) + (gnc-accounts-and-all-descendants accounts)))))) (gnc:report-finished) doc)) diff --git a/gnucash/report/reports/standard/budget.scm b/gnucash/report/reports/standard/budget.scm index a960d50c72..76ba6ee053 100644 --- a/gnucash/report/reports/standard/budget.scm +++ b/gnucash/report/reports/standard/budget.scm @@ -686,7 +686,7 @@ optname-period-collapse-after))) (doc (gnc:make-html-document)) (accounts (if show-subaccts? - (gnc:accounts-and-all-descendants accounts) + (gnc-accounts-and-all-descendants accounts) accounts))) ;; end of defines diff --git a/gnucash/report/reports/standard/cash-flow.scm b/gnucash/report/reports/standard/cash-flow.scm index 1dd900e6fc..5a08b5ac09 100644 --- a/gnucash/report/reports/standard/cash-flow.scm +++ b/gnucash/report/reports/standard/cash-flow.scm @@ -156,7 +156,7 @@ ;;add subaccounts if requested (accounts (if show-subaccts? - (gnc:accounts-and-all-descendants accounts) + (gnc-accounts-and-all-descendants accounts) accounts)) (accounts (sort accounts gnc:account-full-nameelt (gnc:make-gnc-monetary comm 0))))) ;; all selected accounts (of report-specific type), *and* ;; their descendants (of any type) need to be scanned. - (gnc:accounts-and-all-descendants accounts))) + (gnc-accounts-and-all-descendants accounts))) ;; Creates the to be used in the function ;; below. diff --git a/gnucash/report/reports/standard/net-charts.scm b/gnucash/report/reports/standard/net-charts.scm index 6d9d0f7d5e..1f58450f7b 100644 --- a/gnucash/report/reports/standard/net-charts.scm +++ b/gnucash/report/reports/standard/net-charts.scm @@ -299,7 +299,7 @@ (gnc:report-percent-done 1) (set! commodity-list (gnc:accounts-get-commodities - (gnc:accounts-and-all-descendants accounts) + (gnc-accounts-and-all-descendants accounts) report-currency)) (gnc:report-percent-done 10) (set! exchange-fn (gnc:case-exchange-time-fn diff --git a/gnucash/report/reports/standard/portfolio.scm b/gnucash/report/reports/standard/portfolio.scm index 45272d12ca..020e867ded 100644 --- a/gnucash/report/reports/standard/portfolio.scm +++ b/gnucash/report/reports/standard/portfolio.scm @@ -195,7 +195,7 @@ ;(gnc:debug "accounts" accounts) (if (not (null? accounts)) (let* ((commodity-list (gnc:accounts-get-commodities - (gnc:accounts-and-all-descendants accounts) + (gnc-accounts-and-all-descendants accounts) currency)) (pricedb (gnc-pricedb-get-db (gnc-get-current-book))) (exchange-fn (gnc:case-exchange-fn price-source currency to-date)) diff --git a/gnucash/report/reports/standard/test/test-income-gst.scm b/gnucash/report/reports/standard/test/test-income-gst.scm index a78bb4c649..8c069d8b9a 100644 --- a/gnucash/report/reports/standard/test/test-income-gst.scm +++ b/gnucash/report/reports/standard/test/test-income-gst.scm @@ -232,10 +232,10 @@ (define (default-testing-options) (let ((options (gnc:make-report-options rpt-uuid))) (set-option! options "Accounts" "Sales" - (gnc:accounts-and-all-descendants + (gnc-accounts-and-all-descendants (list (get-acct "Income")))) (set-option! options "Accounts" "Purchases" - (gnc:accounts-and-all-descendants + (gnc-accounts-and-all-descendants (list (get-acct "Expenses")))) (set-option! options "Accounts" "Tax Accounts" (list (get-acct "Purchases VAT")