diff --git a/src/report/report-system/report.scm b/src/report/report-system/report.scm index 2949435ac3..8b2b9c6190 100644 --- a/src/report/report-system/report.scm +++ b/src/report/report-system/report.scm @@ -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-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)))