[budget] modify display of interval dates and avoid unicode

pull/474/head
Christopher Lam 7 years ago
parent a4eb5b1a59
commit 4cb2910121

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

Loading…
Cancel
Save