r15754 - gnucash/trunk/src/business/business-reports - Use TXN-TYPE-{INVOICE, PAYMENT} in customer report. Observed by Nigel Titley.

[Andreas Köhler]

Author: andi5
Date: 2007-03-25 19:05:47 -0400 (Sun, 25 Mar 2007)
New Revision: 15754
Trac: http://svn.gnucash.org/trac/changeset/15754

Modified:
   gnucash/trunk/src/business/business-reports/owner-report.scm
Log:
Use TXN-TYPE-{INVOICE,PAYMENT} in customer report. Observed by Nigel Titley.


Modified: gnucash/trunk/src/business/business-reports/owner-report.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/owner-report.scm	2007-03-24 18:17:38 UTC (rev 15753)
+++ gnucash/trunk/src/business/business-reports/owner-report.scm	2007-03-25 23:05:47 UTC (rev 15754)
@@ -201,14 +201,14 @@
 	 (currency (xaccTransGetCurrency txn))
 	 (type-str
 	  (cond
-	   ((equal? type gnc:transaction-type-invoice)
+	   ((equal? type TXN-TYPE-INVOICE)
 	    (if (not (null? invoice))
 		(gnc:make-html-text
 		 (gnc:html-markup-anchor
 		  (gnc:invoice-anchor-text invoice)
 		  inv-str))
 		inv-str))
-	   ((equal? type gnc:transaction-type-payment) (_ "Payment, thank you"))
+	   ((equal? type TXN-TYPE-PAYMENT) (_ "Payment, thank you"))
 	   (else (_ "Unknown"))))
 	 )
 
@@ -296,8 +296,8 @@
        (lambda (txn)
 	 (let ((type (xaccTransGetTxnType txn)))
 	   (if
-	    (or (equal? type gnc:transaction-type-invoice)
-		(equal? type gnc:transaction-type-payment))
+	    (or (equal? type TXN-TYPE-INVOICE)
+		(equal? type TXN-TYPE-PAYMENT))
 	    (let ((result (add-txn-row table txn acc used-columns odd-row? printed?
 				       inv-str reverse? start-date total)))