AUDIT: r17367 - gnucash/trunk/src/report/report-system - 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.
Charles Day
cedayiv at cvs.gnucash.org
Tue Jul 22 11:28:26 EDT 2008
Author: cedayiv
Date: 2008-07-22 11:28:26 -0400 (Tue, 22 Jul 2008)
New Revision: 17367
Trac: http://svn.gnucash.org/trac/changeset/17367
Modified:
gnucash/trunk/src/report/report-system/report.scm
Log:
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.
BP
Modified: gnucash/trunk/src/report/report-system/report.scm
===================================================================
--- gnucash/trunk/src/report/report-system/report.scm 2008-07-21 19:22:01 UTC (rev 17366)
+++ gnucash/trunk/src/report/report-system/report.scm 2008-07-22 15:28:26 UTC (rev 17367)
@@ -326,11 +326,11 @@
;; 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)
- (let* ((template-parent (gnc:report-template-parent-type (hash-ref *gnc:_report-templates_* template-name)))
+(define (gnc:make-report template-id . rest)
+ (let* ((template-parent (gnc:report-template-parent-type (hash-ref *gnc:_report-templates_* template-id)))
(report-type (if template-parent
template-parent
- template-name))
+ template-id))
(r ((record-constructor <report>)
report-type ;; type
#f ;; id
@@ -340,7 +340,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))
@@ -381,8 +381,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