mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Fix r22010 to not crash if the current file has no company name.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@22058 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
bbf0f9ef17
commit
d486d807c1
@ -158,7 +158,7 @@
|
|||||||
(add-option
|
(add-option
|
||||||
(gnc:make-string-option
|
(gnc:make-string-option
|
||||||
gnc:pagename-general optname-party-name
|
gnc:pagename-general optname-party-name
|
||||||
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
|
"b" opthelp-party-name (or (gnc:company-info gnc:*company-name*) "")))
|
||||||
|
|
||||||
;; date at which to report balance
|
;; date at which to report balance
|
||||||
(gnc:options-add-report-date!
|
(gnc:options-add-report-date!
|
||||||
|
@ -126,7 +126,7 @@
|
|||||||
(add-option
|
(add-option
|
||||||
(gnc:make-string-option
|
(gnc:make-string-option
|
||||||
gnc:pagename-general optname-party-name
|
gnc:pagename-general optname-party-name
|
||||||
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
|
"b" opthelp-party-name (or (gnc:company-info gnc:*company-name*) "")))
|
||||||
|
|
||||||
(add-option
|
(add-option
|
||||||
(gnc:make-simple-boolean-option
|
(gnc:make-simple-boolean-option
|
||||||
|
@ -147,7 +147,7 @@
|
|||||||
(add-option
|
(add-option
|
||||||
(gnc:make-string-option
|
(gnc:make-string-option
|
||||||
gnc:pagename-general optname-party-name
|
gnc:pagename-general optname-party-name
|
||||||
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
|
"b" opthelp-party-name (or (gnc:company-info gnc:*company-name*) "")))
|
||||||
|
|
||||||
(add-option
|
(add-option
|
||||||
(gnc:make-budget-option
|
(gnc:make-budget-option
|
||||||
|
@ -111,7 +111,7 @@
|
|||||||
(add-option
|
(add-option
|
||||||
(gnc:make-string-option
|
(gnc:make-string-option
|
||||||
(N_ "General") optname-party-name
|
(N_ "General") optname-party-name
|
||||||
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
|
"b" opthelp-party-name (or (gnc:company-info gnc:*company-name*) "")))
|
||||||
|
|
||||||
;; date at which to report balance
|
;; date at which to report balance
|
||||||
(gnc:options-add-date-interval!
|
(gnc:options-add-date-interval!
|
||||||
|
@ -151,7 +151,7 @@
|
|||||||
(add-option
|
(add-option
|
||||||
(gnc:make-string-option
|
(gnc:make-string-option
|
||||||
gnc:pagename-general optname-party-name
|
gnc:pagename-general optname-party-name
|
||||||
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
|
"b" opthelp-party-name (or (gnc:company-info gnc:*company-name*) "")))
|
||||||
|
|
||||||
;; period over which to report income
|
;; period over which to report income
|
||||||
(gnc:options-add-date-interval!
|
(gnc:options-add-date-interval!
|
||||||
|
@ -149,7 +149,7 @@
|
|||||||
(add-option
|
(add-option
|
||||||
(gnc:make-string-option
|
(gnc:make-string-option
|
||||||
(N_ "General") optname-party-name
|
(N_ "General") optname-party-name
|
||||||
"b" opthelp-party-name (gnc:company-info gnc:*company-name*)))
|
"b" opthelp-party-name (or (gnc:company-info gnc:*company-name*) "")))
|
||||||
|
|
||||||
;; the period over which to collect adjusting/closing entries and
|
;; the period over which to collect adjusting/closing entries and
|
||||||
;; date at which to report the balance
|
;; date at which to report the balance
|
||||||
|
Loading…
Reference in New Issue
Block a user