IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Show dialog on successful report save. #450984

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16221 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2007-06-27 20:33:41 +00:00
parent ea198a90a2
commit c160569737
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/report/report-system/report.scm
View File

@ -406,7 +406,17 @@
(begin (begin
(display saved-form (display saved-form
(open-file conf-file-name "a")) (open-file conf-file-name "a"))
(force-output))))) (force-output)
(let ((report-name (gnc:report-name report)))
(gnc-info-dialog
'()
(sprintf
#f (_ "Your report \"%s\" has been saved into the configuration file \"%s\". The report will be available in the menu Reports -> Custom at the next startup of GnuCash.")
(if (and report-name (not (string-null? report-name)))
(gnc:gettext report-name)
(gnc:gettext "Untitled"))
conf-file-name)))
))))
;; gets the renderer from the report template; ;; gets the renderer from the report template;
;; gets the stylesheet from the report; ;; gets the stylesheet from the report;