From 3d5dfd3069a1f048346511fbd5d5220cea644f37 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20K=C3=B6hler?= Date: Sun, 6 Jul 2008 11:11:34 +0000 Subject: [PATCH] Bug #526883: Add a few missing conversions of strftime results to utf-8. Strings returned by the c runtime must be converted to utf-8 to be displayed properly in all cases. BP git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17257 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/app-utils/date-utilities.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/app-utils/date-utilities.scm b/src/app-utils/date-utilities.scm index d0765b80d3..d8a5339eae 100644 --- a/src/app-utils/date-utilities.scm +++ b/src/app-utils/date-utilities.scm @@ -20,6 +20,8 @@ ;; 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 ;; Boston, MA 02110-1301, USA gnu@gnu.org +(use-modules (gnucash core-utils)) + (define gnc:reldate-list '()) (define (gnc:timepair->secs tp) @@ -79,7 +81,7 @@ (gnc:date-get-year-day (gnc:timepair->date tp))) (define (gnc:date-get-year-string datevec) - (strftime "%Y" datevec)) + (gnc-locale-to-utf8 (strftime "%Y" datevec))) (define (gnc:date-get-quarter-string datevec) (sprintf #f "Q%d" (gnc:date-get-quarter datevec))) @@ -91,10 +93,10 @@ (gnc:date-get-year-string datevec))) (define (gnc:date-get-month-string datevec) - (strftime "%B" datevec)) + (gnc-locale-to-utf8 (strftime "%B" datevec))) (define (gnc:date-get-month-year-string datevec) - (strftime "%B %Y" datevec)) + (gnc-locale-to-utf8 (strftime "%B %Y" datevec))) (define (gnc:date-get-week-year-string datevec) (let ((begin-string (gnc-print-date