[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,8 +461,8 @@
((eq? (car column-list) 'total)
(_ "Total"))
((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)))))
(else
(period-to-date-string (car column-list)))))