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

Use gnc:ngettext to pluralise strings

Browse Source
This commit is contained in:
Christopher Lam 2020-10-27 06:47:37 +08:00
parent 6d6eff6b70
commit 0862143b99
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnucash/report/html-utilities.scm
View File

@ -210,9 +210,10 @@
(issue-deprecation-warning
"gnc:html-make-exchangerates is deprecated. use gnc:html-make-rates-table instead.")
(let ((comm-list (gnc:accounts-get-commodities accounts common-commodity))
(entries (length comm-list))
(markup (lambda (c) (gnc:make-html-table-cell/markup "number-cell" c)))
(table (gnc:make-html-table)))
(unless (null? comm-list)
(unless (= 0 entries)
(for-each
(lambda (commodity)
(let* ((orig-amt (gnc:make-gnc-monetary commodity 1))
@ -225,9 +226,7 @@
comm-list)
(gnc:html-table-set-col-headers!
table (list (gnc:make-html-table-header-cell/size
1 2 (if (null? (cdr comm-list))
(G_ "Exchange rate")
(G_ "Exchange rates"))))))
1 2 (NG_ "Exchange rate" "Exchange rates" entries)))))
table))
;; Create a html-table of all prices. The report-currency is
@ -244,8 +243,7 @@
(unless (zero? entries)
(gnc:html-table-set-col-headers!
table (list (gnc:make-html-table-header-cell/size
1 2 (if (= entries 1) (G_ "Exchange rate")
(G_ "Exchange rates"))))))
1 2 (NG_ "Exchange rate" "Exchange rates" entries)))))
table)
((comm . rest)
(gnc:html-table-append-row!