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))) (exchange-fn (gnc:case-exchange-fn price-source report-commodity to-date)))
(gnc:html-document-set-title! (gnc:html-document-set-title!
doc (string-append doc
company-name " " report-title " " (if sx?
(if sx? (gnc:format (G_ "${company-name} ${report-title} For Period Covering ${start} to ${end}")
;; Translators: This is part of the report title, which is capitalzed in English, but not all other languages 'company-name company-name
(format #f (G_ "For Period Covering ~a to ~a") 'report-title report-title
(qof-print-date from-date) 'start (qof-print-date from-date)
(qof-print-date to-date)) 'end (qof-print-date to-date))
(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) (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:account-get-comm-balance-at-date account end-date #f))
(gnc:html-document-set-title! (gnc:html-document-set-title!
doc (format #f doc (gnc:format (G_ "${company-name} ${report-title} For Period Covering ${start} to ${end}")
(string-append "~a ~a " 'company-name company-name
(G_ "For Period Covering ~a to ~a")) 'report-title report-title
company-name report-title 'start (qof-print-date start-date-printable)
(qof-print-date start-date-printable) 'end (qof-print-date end-date)))
(qof-print-date end-date)))
(if (null? accounts) (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-table-append-ruler! table (* 2 tree-depth)))
(gnc:html-document-set-title! (gnc:html-document-set-title!
doc (format #f (string-append "~a ~a " (G_ "For Period Covering ~a to ~a")) doc (gnc:format (G_ "${company-name} ${report-title} For Period Covering ${start} to ${end}")
company-name report-title 'company-name company-name
(qof-print-date start-date-printable) 'report-title report-title
(qof-print-date end-date))) 'start (qof-print-date start-date-printable)
'end (qof-print-date end-date)))
(if (null? accounts) (if (null? accounts)

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

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