IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2026-07-29 23:58:03 -05:00
Code Issues Packages Projects Releases Wiki Activity

Don't get stock quotes for accounts where all the shares have all been

Browse Source 
sold. #95547


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7458 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
David Hampton
2002-11-11 00:45:05 +00:00
parent 7097d664c5
commit b1f5562368
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/scm/price-quotes.scm
+2 -1
View File
@@ -315,7 +315,8 @@
(define (quotable-account? a)
(let ((type (gw:enum-<gnc:AccountType>-val->sym (gnc:account-get-type a)
#f))
(src (gnc:account-get-price-src a)))
(src (gnc:account-get-price-src a))
(balance (not (gnc:numeric-zero-p (gnc:account-get-balance a)))))
(if (not type) (set! type '()))
(if (symbol? type) (set! type (list type)))