[Gnucash-changes] r13296 - gnucash/trunk - Brian's patch to add company-id to the company address.

[Derek Atkins]

Author: warlord
Date: 2006-02-19 11:32:49 -0500 (Sun, 19 Feb 2006)
New Revision: 13296
Trac: http://svn.gnucash.org/trac/changeset/13296

Modified:
   gnucash/trunk/ChangeLog
   gnucash/trunk/src/business/business-reports/fancy-invoice.scm
Log:
Brian's patch to add company-id to the company address.



Modified: gnucash/trunk/ChangeLog
===================================================================
--- gnucash/trunk/ChangeLog	2006-02-19 16:22:21 UTC (rev 13295)
+++ gnucash/trunk/ChangeLog	2006-02-19 16:32:49 UTC (rev 13296)
@@ -10,6 +10,9 @@
 	  Pop up a warning dialog if the user has no valid post-to accounts.
 	  Fixes #331730.
 
+	* src/business/business-reports/fancy-invoice.scm:
+	  Brian's patch to add company-id to the company address.
+
 2006-02-18  Derek Atkins  <derek at ihtfp.com>
 
 	* intl-scm/xgettext.scm: remove the absolute path from filenames

Modified: gnucash/trunk/src/business/business-reports/fancy-invoice.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/fancy-invoice.scm	2006-02-19 16:22:21 UTC (rev 13295)
+++ gnucash/trunk/src/business/business-reports/fancy-invoice.scm	2006-02-19 16:32:49 UTC (rev 13296)
@@ -722,7 +722,7 @@
 	'attribute (list "align" "right")
 	'attribute (list "width" "33%"))
     (gnc:html-table-append-row!
-     table (list (string-expand (if addy addy "") #\newline "<br>")
+     table (list (string-expand (string-append (if addy addy "") (if id (string-append "\n" id) "")) #\newline "<br>")
 		 (string-expand
 		  (string-append (if phone
 				     (string-append (_ "Phone:") " " phone)