r18215 - gnucash/trunk/src/report/standard-reports - Change some more cells to tagged cells for css

[Phil Longstaff]

Author: plongstaff
Date: 2009-07-17 21:54:08 -0400 (Fri, 17 Jul 2009)
New Revision: 18215
Trac: http://svn.gnucash.org/trac/changeset/18215

Modified:
   gnucash/trunk/src/report/standard-reports/account-summary.scm
   gnucash/trunk/src/report/standard-reports/budget.scm
Log:
Change some more cells to tagged cells for css


Modified: gnucash/trunk/src/report/standard-reports/account-summary.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/account-summary.scm	2009-07-18 01:53:15 UTC (rev 18214)
+++ gnucash/trunk/src/report/standard-reports/account-summary.scm	2009-07-18 01:54:08 UTC (rev 18215)
@@ -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)
 		)
 	      )

Modified: gnucash/trunk/src/report/standard-reports/budget.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/budget.scm	2009-07-18 01:53:15 UTC (rev 18214)
+++ gnucash/trunk/src/report/standard-reports/budget.scm	2009-07-18 01:54:08 UTC (rev 18215)
@@ -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