r17398 - gnucash/branches/2.2/src/report/report-system - [r17367] Reports: Fix two parameter names that apparently were missed during the switch to report GUID's.

Andreas Köhler andi5 at cvs.gnucash.org
Tue Jul 22 18:35:57 EDT 2008


Author: andi5
Date: 2008-07-22 18:35:56 -0400 (Tue, 22 Jul 2008)
New Revision: 17398
Trac: http://svn.gnucash.org/trac/changeset/17398

Modified:
   gnucash/branches/2.2/src/report/report-system/report.scm
Log:
[r17367] Reports: Fix two parameter names that apparently were missed during the switch to report GUID's.

In both cases, the parameter needed is a template ID, not a template name.

Committed by cedayiv.


Modified: gnucash/branches/2.2/src/report/report-system/report.scm
===================================================================
--- gnucash/branches/2.2/src/report/report-system/report.scm	2008-07-22 22:35:47 UTC (rev 17397)
+++ gnucash/branches/2.2/src/report/report-system/report.scm	2008-07-22 22:35:56 UTC (rev 17398)
@@ -256,9 +256,9 @@
 
 ;; gnc:make-report instantiates a report from a report-template.
 ;; The actual report is stored away in a hash-table -- only the id is returned.
-(define (gnc:make-report template-name . rest)
+(define (gnc:make-report template-id . rest)
   (let ((r ((record-constructor <report>) 
-            template-name ;; type
+            template-id ;; type
             #f            ;; id
             #f            ;; options
             #t            ;; dirty
@@ -266,7 +266,7 @@
             #f            ;; editor-widget
             #f            ;; ctext
             ))
-        (template (hash-ref *gnc:_report-templates_* template-name))
+        (template (hash-ref *gnc:_report-templates_* template-id))
         )
     (let ((options 
            (if (not (null? rest))
@@ -306,8 +306,8 @@
         #f))
   )
 
-(define (gnc:make-report-options template-name)
-  (let ((template (hash-ref *gnc:_report-templates_* template-name)))
+(define (gnc:make-report-options template-id)
+  (let ((template (hash-ref *gnc:_report-templates_* template-id)))
     (if template
         (gnc:report-template-new-options template)
         #f)))



More information about the gnucash-changes mailing list