r23080 - gnucash/trunk/src/report/report-system - New function to rename a saved report

[Geert Janssens]

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

Modified:
   gnucash/trunk/src/report/report-system/report-system.scm
   gnucash/trunk/src/report/report-system/report.scm
Log:
New function to rename a saved report

Modified: gnucash/trunk/src/report/report-system/report-system.scm
===================================================================
--- gnucash/trunk/src/report/report-system/report-system.scm	2013-07-02 11:17:22 UTC (rev 23079)
+++ gnucash/trunk/src/report/report-system/report-system.scm	2013-07-02 11:17:33 UTC (rev 23080)
@@ -161,6 +161,7 @@
 (export gnc:all-report-template-guids)
 (export gnc:custom-report-template-guids)
 (export gnc:delete-report)
+(export gnc:rename-report)
 (export gnc:find-report-template)
 (export gnc:report-generate-restore-forms)
 (export gnc:report-generate-saved-forms)

Modified: gnucash/trunk/src/report/report-system/report.scm
===================================================================
--- gnucash/trunk/src/report/report-system/report.scm	2013-07-02 11:17:22 UTC (rev 23079)
+++ gnucash/trunk/src/report/report-system/report.scm	2013-07-02 11:17:33 UTC (rev 23080)
@@ -711,6 +711,16 @@
        (hash-remove! *gnc:_report-templates_* template-guid)
        (gnc:save-all-reports))))
 
+;; rename an existing report from the hash table and then
+;; resave the saved-reports file
+(define (gnc:rename-report template-guid new-name)
+  (let ((templ (hash-ref *gnc:_report-templates_* template-guid)))
+    (if templ
+      (begin
+        (gnc:debug "Renaming report " template-guid)
+        (gnc:report-template-set-name templ new-name)
+        (gnc:save-all-reports)))))
+
 ;; Legacy functions
 ;;;;;;;;;;;;;;;;;;;