From 157fade6407fc659c0452dc2b70b910ba309ca66 Mon Sep 17 00:00:00 2001
From: Robert Graham Merkel <robert.merkel@benambra.org>
Date: Wed, 16 May 2001 02:13:27 +0000
Subject: [PATCH] fix up transaction report formatting

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4223 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 ChangeLog                             |  8 ++++++++
 src/scm/doc.scm                       |  5 +----
 src/scm/report/transaction-report.scm | 11 ++++++-----
 3 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d422865e91..e6408477a7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2001-05-16  Robert Graham Merkel  <rgmerk@mira.net>
+
+	* src/scm/report/transaction-report.scm: use colspan to make
+	room for long subtotal labels.
+
+	* src/scm/doc.scm: remove unnecessary debugging output inadvertantly
+	added.
+
 2001-05-15  Bill Gribble  <grib@billgribble.com>
 
 	* fix report updating problem.  should reload multicolumn reports
diff --git a/src/scm/doc.scm b/src/scm/doc.scm
index 72236bd3d0..3831f753bd 100644
--- a/src/scm/doc.scm
+++ b/src/scm/doc.scm
@@ -18,10 +18,7 @@
 (gnc:support "doc.scm")
 
 (define (gnc:find-doc-file file)
-  (let ((doc-path (gnc:config-var-value-get gnc:*doc-path*)))
-    (gnc:debug "file" file)
-    (gnc:debug "doc-path" doc-path)
-    (gnc:find-in-directories file (gnc:config-var-value-get gnc:*doc-path*))))
+  (gnc:find-in-directories file (gnc:config-var-value-get gnc:*doc-path*)))
 
 (define (remove-i18n-macros input)
   (cond ((null? input) input)
diff --git a/src/scm/report/transaction-report.scm b/src/scm/report/transaction-report.scm
index 9e692e1beb..16cba32186 100644
--- a/src/scm/report/transaction-report.scm
+++ b/src/scm/report/transaction-report.scm
@@ -143,14 +143,15 @@
 			      subtotal-style)
       (let ((currency-totals (subtotal-collector
 			      'format gnc:make-gnc-monetary #f))
-	    (blanks (make-list (- width 1) #f)))
+	    (blanks (gnc:make-html-table-cell/size 1 (- width 1) #f)))
 	(gnc:html-table-append-row/markup!
 	 table
-	 subtotal-style
-	 (append (list subtotal-string) (make-list (- width 2) #f)
-		 (list (gnc:make-html-table-cell/markup 
+	 subtotal-style 
+	  (list (gnc:make-html-table-cell/size 1 (- width 1) 
+					       subtotal-string)
+		 (gnc:make-html-table-cell/markup 
 			"total-number-cell"
-			(car currency-totals)))))
+			(car currency-totals))))
         (for-each (lambda (currency)
 		    (gnc:html-table-append-row/markup! 
 		     table