diff --git a/gnucash/report/standard-reports/balsheet-pnl.scm b/gnucash/report/standard-reports/balsheet-pnl.scm index 5bf1c2f980..8e9afe25e3 100644 --- a/gnucash/report/standard-reports/balsheet-pnl.scm +++ b/gnucash/report/standard-reports/balsheet-pnl.scm @@ -879,10 +879,10 @@ also show overall period profit & loss.")) (lambda () (display report-title) (display " ") - (when (or incr (eq? report-type 'pnl)) - (display (qof-print-date startdate)) - (display (_ " to "))) - (display (qof-print-date enddate))))) + (if (or incr (eq? report-type 'pnl)) + (format #t (_ "~a to ~a") + (qof-print-date startdate) (qof-print-date enddate)) + (qof-print-date enddate))))) (if (eq? (get-option gnc:pagename-general optname-options-summary) 'always) (gnc:html-document-add-object! @@ -1057,9 +1057,9 @@ also show overall period profit & loss.")) multicol-table-right (_ "Equity") (append equity-accounts (list - (vector "Unrealized Gains" + (vector (_ "Unrealized Gains") unrealized-gain-fn) - (vector "Retained Earnings" + (vector (_ "Retained Earnings") retained-earnings-fn))) #:negate-amounts? #t) @@ -1074,7 +1074,7 @@ also show overall period profit & loss.")) (gnc:html-document-add-object! doc (gnc:make-html-text - (gnc:html-markup-anchor chart "Barchart")))))) + (gnc:html-markup-anchor chart (_ "Barchart"))))))) ((eq? report-type 'pnl) (let* ((closing-str (get-option pagename-entries optname-closing-pattern))