(define (gnc:html-table-add-budget-line-columns!
                         html-table rownum budget acct period-list)
                  (let* (
                      ;; budgeted amount
                      (bgt-numeric-val (gnc:get-account-periodlist-budget-value budget acct period-list))

		      (display period-list) (newline)
		      (display (bgt-numeric-val) (newline)

                      ;; actual amount
                      (act-numeric-abs (gnc:get-account-periodlist-actual-value budget acct period-list))
                      (act-numeric-val
                        (if reverse-balance?
                          (gnc-numeric-neg act-numeric-abs)
                          act-numeric-abs))

		      (display act-numeric-val) (newline)