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] rewrite gnc:report-template-make-unique-name

Browse Source
This commit is contained in:
Christopher Lam 2019-04-07 10:23:55 +08:00
parent 3352b53491
commit ad51c5e00a
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -504,15 +504,12 @@ not found.")))
;; If this string already exists as a custom template name, a ;; If this string already exists as a custom template name, a
;; number will be appended to it. ;; number will be appended to it.
(define (gnc:report-template-make-unique-name new-name) (define (gnc:report-template-make-unique-name new-name)
(let* ((unique-name new-name) (let loop ((name new-name)
(counter 0) (counter 1))
(unique? (gnc:report-template-has-unique-name? #f unique-name))) (if (gnc:report-template-has-unique-name? #f name)
(while (not unique?) name
(begin (loop (string-append new-name (number->string counter))
(set! counter (+ counter 1)) (1+ counter)))))
(set! unique-name (string-append new-name (number->string counter)))
(set! unique? (gnc:report-template-has-unique-name? #f unique-name))))
unique-name))
;; Load and save functions ;; Load and save functions