From 8fef1adcc415bd3dfd5d943740802067e91c79f0 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Wed, 28 Feb 2018 22:10:38 +0800 Subject: [PATCH] date-utilities: bugfix weekly render This was introduced by 48bdab3. --- libgnucash/app-utils/date-utilities.scm | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/libgnucash/app-utils/date-utilities.scm b/libgnucash/app-utils/date-utilities.scm index ffad895572..1729d0869a 100644 --- a/libgnucash/app-utils/date-utilities.scm +++ b/libgnucash/app-utils/date-utilities.scm @@ -91,19 +91,7 @@ 604800)) (begin-string (qof-print-date (+ beginweekt64 345600))) (end-string (qof-print-date (+ beginweekt64 864000)))) - (format #f (_ "~s to ~s") begin-string end-string))) - -; (let ((begin-string (qof-print-date -; (+ (* (gnc:date-get-week -; (gnc:time64-start-day-time -; (gnc-mktime datevec))) -; 604800) 345600))) -; (end-string (qof-print-date -; (+ (* (gnc:date-get-week -; (gnc:time64-start-day-time -; (gnc-mktime datevec))) -; 604800) 864000)))) -; (format #f (_ "~s to ~s") begin-string end-string))) + (format #f (_ "~a to ~a") begin-string end-string))) ;; is leap year? (define (gnc:leap-year? year)