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:
David Hampton 2003-01-12 23:25:38 +00:00
parent c1adfb5be8
commit 122f18e873

View File

@ -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?)