r17762 - gnucash/branches/2.2/src/report/report-system - [17748] Bug #348860: Fix missing sub-report options when saving a multicolumn report

[Christian Stimming]

Author: cstim
Date: 2008-12-08 03:38:32 -0500 (Mon, 08 Dec 2008)
New Revision: 17762
Trac: http://svn.gnucash.org/trac/changeset/17762

Modified:
   gnucash/branches/2.2/src/report/report-system/report.scm
Log:
[17748] Bug #348860: Fix missing sub-report options when saving a multicolumn report

When writing the report options to saved-reports the embedded reports (if any
exist) are stored too. This is important for saving multicolumn reports.

Patch by C. Ernst.

Modified: gnucash/branches/2.2/src/report/report-system/report.scm
===================================================================
--- gnucash/branches/2.2/src/report/report-system/report.scm	2008-12-08 08:38:24 UTC (rev 17761)
+++ gnucash/branches/2.2/src/report/report-system/report.scm	2008-12-08 08:38:32 UTC (rev 17762)
@@ -394,6 +394,24 @@
     #f "  (gnc:restore-report ~S ~S options))\n"
     (gnc:report-id report) (gnc:report-type report))))
 
+;; Loop over embedded reports and concat result of each gnc:report-generate-restore-forms
+(define (gnc:report-generate-options-embedded report)
+  (let*
+      ((embedded-reports (gnc:report-embedded-list report))
+       (result-string ""))
+    (if embedded-reports
+        (for-each
+         (lambda (subreport-id)
+           (let*
+               ((subreport (gnc-report-find subreport-id))
+                (subreport-options-text (gnc:report-generate-restore-forms subreport)))
+             (set! result-string (string-append
+                                  result-string
+                                  ";;;; Options for embedded report\n"
+                                  subreport-options-text))))
+         embedded-reports))
+    result-string))
+
 (define (gnc:report-generate-saved-forms report)
   ;; clean up the options if necessary.  this is only needed 
   ;; in special cases.  
@@ -413,6 +431,8 @@
     #f "(let ()\n (define (options-gen)\n  (let ((options (gnc:report-template-new-options/name ~S)))\n"
     (gnc:report-type report))
    (gnc:generate-restore-forms (gnc:report-options report) "options")
+   ;; get options of embedded reports
+   (gnc:report-generate-options-embedded report)
    "  options))\n"
    (simple-format 
     #f " (gnc:define-report \n  'version 1\n  'name ~S\n  'options-generator options-gen\n  'menu-path (list gnc:menuname-custom)\n  'renderer (gnc:report-template-renderer/name ~S)))\n\n"