[customer-summary] prevents crash on empty-book with no accounts

8 years ago · e2907844be
parent ff91056ab1
commit e2907844be
1 changed files with 1 additions and 1 deletions
--- a/gnucash/report/business-reports/customer-summary.scm
+++ b/gnucash/report/business-reports/customer-summary.scm
@ -699,7 +699,7 @@
         (expense-accounts (opt-val pagename-expenseaccounts optname-expenseaccounts))
         (income-accounts (opt-val pagename-incomeaccounts optname-incomeaccounts))
         (all-accounts (append income-accounts expense-accounts))
-         (book (gnc-account-get-book (car all-accounts)))
+         (book (gnc-get-current-book))
         (date-format (gnc:options-fancy-date book))
         (type (opt-val "__reg" "owner-type"))
         (reverse? (opt-val "__reg" "reverse?"))