From 1f8c3dc9f66243fd982c185e60b484ecd6d2d2bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20K=C3=B6hler?= Date: Sun, 25 Mar 2007 23:05:47 +0000 Subject: [PATCH] Use TXN-TYPE-{INVOICE,PAYMENT} in customer report. Observed by Nigel Titley. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15754 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/business/business-reports/owner-report.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/business/business-reports/owner-report.scm b/src/business/business-reports/owner-report.scm index 9abd7c479b..a2be807efa 100644 --- a/src/business/business-reports/owner-report.scm +++ b/src/business/business-reports/owner-report.scm @@ -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)))