r23077 - gnucash/trunk/src/report/report-system - Return guid of newly-created report template to calling function

[Geert Janssens]

Author: gjanssens
Date: 2013-07-02 07:16:59 -0400 (Tue, 02 Jul 2013)
New Revision: 23077
Trac: http://svn.gnucash.org/trac/changeset/23077

Modified:
   gnucash/trunk/src/report/report-system/report.scm
Log:
Return guid of newly-created report template to calling function

Modified: gnucash/trunk/src/report/report-system/report.scm
===================================================================
--- gnucash/trunk/src/report/report-system/report.scm	2013-07-02 11:16:50 UTC (rev 23076)
+++ gnucash/trunk/src/report/report-system/report.scm	2013-07-02 11:16:59 UTC (rev 23077)
@@ -567,16 +567,11 @@
               (begin
                 (display saved-form report-port)
                 (close report-port)
-                (let ((report-name (gnc:report-name report)))
-                  (gnc-info-dialog
-                   '()
-                   (sprintf
-                    #f (_ "Your report \"%s\" has been saved into the configuration file \"%s\".")
-                    (if (and report-name (not (string-null? report-name)))
-                        (gnc:gettext report-name)
-                        (gnc:gettext "Untitled"))
-                    gnc:current-saved-reports)))
-                ))))))
+                ))
+          ;; Inform the calling function of the newly created template's guid
+          (gnc:report-template-report-guid save-result))
+          ;; Couldn't save report - return false
+          #f)))
 
 (define (gnc:report-template-save-to-savefile report-template)
   (let* ((report-port (gnc:open-saved-reports "a")))