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

Bug 797725 - Untranslatable string "For Period Covering ~a to ~a"

Browse Source
This commit is contained in:
Christopher Lam 2022-08-17 07:45:09 +08:00
parent 645cc9461d
commit 580efe091c
4 changed files with 32 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnucash/report/reports/standard/account-summary.scm
View File

@ -318,14 +318,17 @@
(exchange-fn (gnc:case-exchange-fn price-source report-commodity to-date)))
(gnc:html-document-set-title!
doc (string-append
company-name " " report-title " "
(if sx?
;; Translators: This is part of the report title, which is capitalzed in English, but not all other languages
(format #f (G_ "For Period Covering ~a to ~a")
(qof-print-date from-date)
(qof-print-date to-date))
(qof-print-date to-date))))
doc
(if sx?
(gnc:format (G_ "${company-name} ${report-title} For Period Covering ${start} to ${end}")
'company-name company-name
'report-title report-title
'start (qof-print-date from-date)
'end (qof-print-date to-date))
(gnc:format (G_ "${company-name} ${report-title} ${date}")
'company-name company-name
'report-title report-title
'date (qof-print-date to-date))))
(if (null? accounts)

11
gnucash/report/reports/standard/equity-statement.scm
View File

@ -298,12 +298,11 @@
(gnc:account-get-comm-balance-at-date account end-date #f))
(gnc:html-document-set-title!
doc (format #f
(string-append "~a ~a "
(G_ "For Period Covering ~a to ~a"))
company-name report-title
(qof-print-date start-date-printable)
(qof-print-date end-date)))
doc (gnc:format (G_ "${company-name} ${report-title} For Period Covering ${start} to ${end}")
'company-name company-name
'report-title report-title
'start (qof-print-date start-date-printable)
'end (qof-print-date end-date)))
(if (null? accounts)

9
gnucash/report/reports/standard/income-statement.scm
View File

@ -403,10 +403,11 @@
(gnc:html-table-append-ruler! table (* 2 tree-depth)))
(gnc:html-document-set-title!
doc (format #f (string-append "~a ~a " (G_ "For Period Covering ~a to ~a"))
company-name report-title
(qof-print-date start-date-printable)
(qof-print-date end-date)))
doc (gnc:format (G_ "${company-name} ${report-title} For Period Covering ${start} to ${end}")
'company-name company-name
'report-title report-title
'start (qof-print-date start-date-printable)
'end (qof-print-date end-date)))
(if (null? accounts)

20
gnucash/report/reports/standard/trial-balance.scm
View File

@ -399,15 +399,17 @@
(period-for (string-append " " (G_ "for Period"))))
(gnc:html-document-set-title!
doc (if (eq? report-variant 'current)
(format #f "~a ~a ~a"
company-name report-title
(qof-print-date end-date))
(format #f (string-append "~a ~a "
(G_ "For Period Covering ~a to ~a"))
company-name report-title
(qof-print-date start-date-printable)
(qof-print-date end-date))))
doc
(if (eq? report-variant 'current)
(gnc:format (G_ "${company-name} ${report-title} ${date}")
'company-name company-name
'report-title report-title
'date (qof-print-date end-date))
(gnc:format (G_ "${company-name} ${report-title} For Period Covering ${start} to ${end}")
'company-name company-name
'report-title report-title
'start (qof-print-date start-date-printable)
'end (qof-print-date end-date))))
(if (null? accounts)