[Gnucash-changes] r13985 - gnucash/trunk/src - Fix fancy invoice report. Bug #341046.

[Chris Shoemaker]

Author: chris
Date: 2006-05-09 23:54:45 -0400 (Tue, 09 May 2006)
New Revision: 13985
Trac: http://svn.gnucash.org/trac/changeset/13985

Modified:
   gnucash/trunk/src/business/business-reports/fancy-invoice.scm
   gnucash/trunk/src/report/report-system/html-table.scm
Log:
   Fix fancy invoice report.  Bug #341046.
   Also, liberalize gnc:html-table-append-row! to accept a non-list argument.


Modified: gnucash/trunk/src/business/business-reports/fancy-invoice.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/fancy-invoice.scm	2006-05-10 01:53:24 UTC (rev 13984)
+++ gnucash/trunk/src/business/business-reports/fancy-invoice.scm	2006-05-10 03:54:45 UTC (rev 13985)
@@ -843,8 +843,8 @@
 		  (set! date-table (make-date-table))
 		  ;; oli-custom - moved invoice number here
 		  (gnc:html-table-append-row!
-		   date-table (sprintf #f (_ "Invoice # %d")
-				       (gnc:invoice-get-id invoice)))
+		   date-table (list (sprintf #f (_ "Invoice # %d")
+                                             (gnc:invoice-get-id invoice))))
 		  (make-date-row! date-table (_ "Invoice Date") post-date)
 		  (make-date-row! date-table (_ "Due Date") due-date)
 		  date-table)

Modified: gnucash/trunk/src/report/report-system/html-table.scm
===================================================================
--- gnucash/trunk/src/report/report-system/html-table.scm	2006-05-10 01:53:24 UTC (rev 13984)
+++ gnucash/trunk/src/report/report-system/html-table.scm	2006-05-10 03:54:45 UTC (rev 13985)
@@ -349,7 +349,9 @@
   (let* ((dd (gnc:html-table-data table))
 	 (current-num-rows (gnc:html-table-num-rows table))
 	 (new-num-rows (+ current-num-rows 1)))
-    (set! dd (cons newrow dd))
+    (if (list? newrow)
+        (set! dd (cons newrow dd))
+        (set! dd (cons (list newrow) dd)))
     (gnc:html-table-set-num-rows-internal! 
      table 
      new-num-rows)