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

src/report/standard-reports/balance-sheet.scm

@@ -158,7 +158,7 @@
     (add-option
       (gnc:make-string-option
       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
     (gnc:options-add-report-date!

src/report/standard-reports/budget-balance-sheet.scm

@@ -126,7 +126,7 @@
     (add-option
       (gnc:make-string-option
       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
      (gnc:make-simple-boolean-option

src/report/standard-reports/budget-income-statement.scm

@@ -147,7 +147,7 @@
     (add-option
       (gnc:make-string-option
       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
      (gnc:make-budget-option

src/report/standard-reports/equity-statement.scm

@@ -111,7 +111,7 @@
     (add-option
       (gnc:make-string-option
       (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
     (gnc:options-add-date-interval!

src/report/standard-reports/income-statement.scm

@@ -151,7 +151,7 @@
     (add-option
       (gnc:make-string-option
       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
     (gnc:options-add-date-interval!

src/report/standard-reports/trial-balance.scm

@@ -149,7 +149,7 @@
     (add-option
       (gnc:make-string-option
       (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
     ;; date at which to report the balance