r16845 - gnucash/trunk/src/business/business-reports - fix owner-report references broken by report-guid.

[Andrew Sackville-West]

Author: andrewsw
Date: 2008-01-08 13:49:43 -0500 (Tue, 08 Jan 2008)
New Revision: 16845
Trac: http://svn.gnucash.org/trac/changeset/16845

Modified:
   gnucash/trunk/src/business/business-reports/owner-report.scm
Log:
fix owner-report references broken by report-guid.


Modified: gnucash/trunk/src/business/business-reports/owner-report.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/owner-report.scm	2008-01-08 02:10:59 UTC (rev 16844)
+++ gnucash/trunk/src/business/business-reports/owner-report.scm	2008-01-08 18:49:43 UTC (rev 16845)
@@ -37,6 +37,11 @@
 (use-modules (gnucash report standard-reports))
 (use-modules (gnucash report business-reports))
 
+;; let's define a name for the report-guid's, much prettier
+(define employee-report-guid "08ae9c2e884b4f9787144f47eacd7f44")
+(define vendor-report-guid "d7d1e53505ee4b1b82efad9eacedaea0")
+(define customer-report-guid "c146317be32e4948a561ec7fc89d15c1")
+
 (define acct-string (N_ "Account"))
 (define owner-string (N_ "Company"))
 (define owner-page gnc:pagename-general)
@@ -678,7 +683,7 @@
 (gnc:define-report
  'version 1
  'name (N_ "Customer Report")
- 'report-guid "c146317be32e4948a561ec7fc89d15c1"
+ 'report-guid customer-report-guid
  'menu-path (list gnc:menuname-business-reports)
  'options-generator customer-options-generator
  'renderer reg-renderer
@@ -687,7 +692,7 @@
 (gnc:define-report
  'version 1
  'name (N_ "Vendor Report")
- 'report-guid "d7d1e53505ee4b1b82efad9eacedaea0"
+ 'report-guid vendor-report-guid
  'menu-path (list gnc:menuname-business-reports)
  'options-generator vendor-options-generator
  'renderer reg-renderer
@@ -696,32 +701,32 @@
 (gnc:define-report
  'version 1
  'name (N_ "Employee Report")
- 'report-guid "08ae9c2e884b4f9787144f47eacd7f44"
+ 'report-guid employee-report-guid 
  'menu-path (list gnc:menuname-business-reports)
  'options-generator employee-options-generator
  'renderer reg-renderer
  'in-menu? #t)
 
-(define (owner-report-create-internal report-name owner account)
-  (let* ((options (gnc:make-report-options report-name))
+(define (owner-report-create-internal report-guid owner account)
+  (let* ((options (gnc:make-report-options report-guid))
 	 (owner-op (gnc:lookup-option options owner-page owner-string))
 	 (account-op (gnc:lookup-option options owner-page acct-string)))
 
     (gnc:option-set-value owner-op owner)
     (gnc:option-set-value account-op account)
-    (gnc:make-report report-name options)))
+    (gnc:make-report report-guid options)))
 
 (define (owner-report-create owner account)
   (let ((type (gncOwnerGetType (gncOwnerGetEndOwner owner))))
     (cond
       ((eqv? type GNC-OWNER-CUSTOMER)
-       (owner-report-create-internal (N_ "Customer Report") owner account))
+       (owner-report-create-internal customer-report-guid owner account))
 
       ((eqv? type GNC-OWNER-VENDOR)
-       (owner-report-create-internal (N_ "Vendor Report") owner account))
+       (owner-report-create-internal vendor-report-guid owner account))
 
       ((eqv? type GNC-OWNER-EMPLOYEE)
-       (owner-report-create-internal (N_ "Employee Report") owner account))
+       (owner-report-create-internal employee-report-guid owner account))
 
       (else #f))))