mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Use gnc:group-get-account-list instead of building it manually.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3326 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
07ccf2a716
commit
bbe2d40431
@ -88,16 +88,7 @@
|
||||
|
||||
(cond ((not (null? current-accounts)) current-accounts)
|
||||
(else
|
||||
(let ((acctlist '()))
|
||||
(gnc:for-loop
|
||||
(lambda(x)
|
||||
(set! acctlist
|
||||
(append!
|
||||
acctlist
|
||||
(list (gnc:group-get-account
|
||||
(gnc:get-current-group) x)))))
|
||||
0 num-accounts 1)
|
||||
acctlist)))))
|
||||
(gnc:group-get-account-list (gnc:get-current-group))))))
|
||||
#f #t))
|
||||
|
||||
(gnc:register-runavg-option
|
||||
|
Loading…
Reference in New Issue
Block a user