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

[report] convert (gnc:restore-report) to use closure

Browse Source 
Instead of a global variable gnc:old-style-restore-warned, use closure
to isolate variable within the only function which uses it.
This commit is contained in:
Christopher Lam 2019-02-05 23:17:49 +08:00
parent 6e7cd33308
commit d49a51ca73
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gnucash/report/report-system/report.scm
View File

@ -885,22 +885,21 @@ not found.")))
*gnc:_report-templates_*)
template-id))
;; We want to warn users when we are trying to restore reports stored in the legacy
;; format (based on name instead of guid), but only once
(define gnc:old-style-restore-warned #f)
;; Legacy: this function is needed only to restore
;; a saved report when loading a book last saved in GnuCash 2.2
(define (gnc:restore-report id template-name options)
(if options
(let ((r ((record-constructor <report>)
(gnc:report-template-name-to-id template-name) id options #t #t #f #f "")))
;; Warn user (one time) we're attempting to restore old style reports
(if (not gnc:old-style-restore-warned)
(begin
(set! gnc:old-style-restore-warned #t)
(gnc-warning-dialog '() rptwarn-legacy)))
(gnc-report-add r))
(begin
(define gnc:restore-report
(let ((first-warn? #t))
(lambda (id template-name options)
(cond
(options
(let* ((constructor (record-constructor <report>))
(template-id (gnc:report-template-name-to-id template-name))
(report (constructor template-id id options #t #t #f #f "")))
;; Warn user (one time) we're attempting to restore old style reports
(when first-warn?
(set! first-warn? #f)
(gui-warning rptwarn-legacy))
(gnc-report-add report)))
(else
(gui-error-missing-template template-name)
#f)))
#f)))))