r23080 - gnucash/trunk/src/report/report-system - New function to rename a saved report
Geert Janssens
gjanssens at code.gnucash.org
Tue Jul 2 07:17:33 EDT 2013
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
;;;;;;;;;;;;;;;;;;;
More information about the gnucash-changes
mailing list