r22218 - gnucash/trunk/src/report/business-reports - Fix Account Report menu option when used on A/R or A/P registers.

[Geert Janssens]

Author: gjanssens
Date: 2012-06-13 11:24:21 -0400 (Wed, 13 Jun 2012)
New Revision: 22218
Trac: http://svn.gnucash.org/trac/changeset/22218

Modified:
   gnucash/trunk/src/report/business-reports/payables.scm
   gnucash/trunk/src/report/business-reports/receivables.scm
Log:
Fix Account Report menu option when used on A/R or A/P registers.
This has been broken since r20766

Modified: gnucash/trunk/src/report/business-reports/payables.scm
===================================================================
--- gnucash/trunk/src/report/business-reports/payables.scm	2012-06-13 15:24:06 UTC (rev 22217)
+++ gnucash/trunk/src/report/business-reports/payables.scm	2012-06-13 15:24:21 UTC (rev 22218)
@@ -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)

Modified: gnucash/trunk/src/report/business-reports/receivables.scm
===================================================================
--- gnucash/trunk/src/report/business-reports/receivables.scm	2012-06-13 15:24:06 UTC (rev 22217)
+++ gnucash/trunk/src/report/business-reports/receivables.scm	2012-06-13 15:24:21 UTC (rev 22218)
@@ -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)