diff --git a/src/report/business-reports/payables.scm b/src/report/business-reports/payables.scm index bc065ba84f..1db65f4bd5 100644 --- a/src/report/business-reports/payables.scm +++ b/src/report/business-reports/payables.scm @@ -80,14 +80,15 @@ (title-op (gnc:lookup-option options acc-page gnc:optname-reportname))) (gnc:option-set-value acct-op acct) - (gnc:option-set-value title-op title) + (if (not (string-null? title)) + (gnc:option-set-value title-op title)) (gnc:option-set-value zero-op show-zeros?) (gnc:make-report payables-aging-guid options))) (define (gnc:payables-report-create-internal account split query journal? double? title debit-string credit-string) - (payables-report-create-internal account #f #f)) + (payables-report-create-internal account "" #f)) (gnc:register-report-hook ACCT-TYPE-PAYABLE #f gnc:payables-report-create-internal) diff --git a/src/report/business-reports/receivables.scm b/src/report/business-reports/receivables.scm index 962696acf9..c8d3cc200a 100644 --- a/src/report/business-reports/receivables.scm +++ b/src/report/business-reports/receivables.scm @@ -81,14 +81,15 @@ (title-op (gnc:lookup-option options acc-page gnc:optname-reportname))) (gnc:option-set-value acct-op acct) - (gnc:option-set-value title-op title) + (if (not (string-null? title)) + (gnc:option-set-value title-op title)) (gnc:option-set-value zero-op show-zeros?) (gnc:make-report receivables-aging-guid options))) (define (gnc:receivables-report-create-internal account split query journal? double? title debit-string credit-string) - (receivables-report-create-internal account #f #f)) + (receivables-report-create-internal account "" #f)) (gnc:register-report-hook ACCT-TYPE-RECEIVABLE #f gnc:receivables-report-create-internal)