[budget] modify display of interval dates and avoid unicode

This commit is contained in:
Christopher Lam 2019-03-30 02:08:46 +08:00
parent a4eb5b1a59
commit 4cb2910121

View File

@ -461,9 +461,9 @@
((eq? (car column-list) 'total) ((eq? (car column-list) 'total)
(_ "Total")) (_ "Total"))
((list? (car column-list)) ((list? (car column-list))
(string-append (period-to-date-string (car (car column-list))) (format #f (_ "~a to ~a")
" " (period-to-date-string (car (car column-list)))
(period-to-date-string (last (car column-list))))) (period-to-date-string (last (car column-list)))))
(else (else
(period-to-date-string (car column-list))))) (period-to-date-string (car column-list)))))