mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Correctly handle the case where no stocks have been defined and the
user askes gnucash to get price quotes. #102560 git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7820 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
c1adfb5be8
commit
122f18e873
@ -376,7 +376,11 @@
|
||||
a
|
||||
#f)))
|
||||
|
||||
(filter quotable-account? (gnc:group-get-subaccounts group)))
|
||||
(let ((quotables (filter quotable-account? (gnc:group-get-subaccounts group))))
|
||||
(if (null? quotables)
|
||||
#f
|
||||
quotables))
|
||||
)
|
||||
|
||||
(define (accounts->fq-call-data account-list)
|
||||
;; Take a list of accounts that should be "quotable" -- i.e. they
|
||||
@ -638,6 +642,11 @@
|
||||
(keep-going? #t))
|
||||
|
||||
(cond
|
||||
((eq? quotables #f)
|
||||
(set! keep-going? #f)
|
||||
(if (gnc:ui-is-running?)
|
||||
(gnc:error-dialog (_ "No accounts marked for quote retrieval."))
|
||||
(gnc:warn (_ "No accounts marked for quote retrieval."))))
|
||||
((eq? fq-results #f)
|
||||
(set! keep-going? #f)
|
||||
(if (gnc:ui-is-running?)
|
||||
|
Loading…
Reference in New Issue
Block a user