Change some more cells to tagged cells for css

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18215 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Phil Longstaff 2009-07-18 01:54:08 +00:00
parent 3a5149fb32
commit e1d1e35332
2 changed files with 14 additions and 12 deletions

View File

@ -453,10 +453,11 @@
account-cols
)
)
(if show-account-bals?
(gnc:html-table-set-cell!
build-table 0 (+ cur-col account-cols) (_ "Balance"))
)
(if show-account-bals?
(gnc:html-table-set-cell/tag!
build-table 0 (+ cur-col account-cols) "number-header"
(_ "Balance"))
)
(let ((row 0))
(while (< row table-rows)
(gnc:html-table-set-row-markup! build-table (+ row 1)
@ -476,8 +477,9 @@
(set! cur-col (+ cur-col hold-table-width))
(if show-account-notes?
(begin
(gnc:html-table-set-cell!
build-table 0 cur-col (_ "Notes"))
(gnc:html-table-set-cell/tag!
build-table 0 cur-col "text-cell"
(_ "Notes"))
(add-col 'account-notes)
)
)

View File

@ -223,8 +223,8 @@
(begin
(if show-budget?
(begin
(gnc:html-table-set-cell!
html-table rownum current-col
(gnc:html-table-set-cell/tag!
html-table rownum current-col "total-number-cell"
(if bgt-total-unset? "."
(gnc:make-gnc-monetary comm bgt-total)))
(set! current-col (+ current-col 1))
@ -232,16 +232,16 @@
)
(if show-actual?
(begin
(gnc:html-table-set-cell!
html-table rownum current-col
(gnc:html-table-set-cell/tag!
html-table rownum current-col "total-number-cell"
(gnc:make-gnc-monetary comm act-total))
(set! current-col (+ current-col 1))
)
)
(if show-diff?
(begin
(gnc:html-table-set-cell!
html-table rownum current-col
(gnc:html-table-set-cell/tag!
html-table rownum current-col "total-number-cell"
(if bgt-total-unset? "."
(gnc:make-gnc-monetary comm
(gnc-numeric-sub bgt-total