[Gnucash-changes] Fix recursion in gnc:owner-get-owner-id (reported by Chase James).

[Derek Atkins]

Log Message:
-----------
Fix recursion in gnc:owner-get-owner-id (reported by Chase James).

	* src/business/business-core/business-core.scm:  need to
	  properly recurse in gnc:owner-get-owner-id.  there is no
	  gnc:owner-get-id API.

Modified Files:
--------------
    gnucash:
        ChangeLog
    gnucash/src/business/business-core:
        business-core.scm

Revision Data
-------------
Index: ChangeLog
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/ChangeLog,v
retrieving revision 1.1910
retrieving revision 1.1911
diff -LChangeLog -LChangeLog -u -r1.1910 -r1.1911
--- ChangeLog
+++ ChangeLog
@@ -1,3 +1,9 @@
+2005-08-15  Derek Atkins  <derek at ihtfp.com>
+
+	* src/business/business-core/business-core.scm:  need to
+	  properly recurse in gnc:owner-get-owner-id.  there is no
+	  gnc:owner-get-id API.
+
 2005-07-17  Christian Stimming  <stimming at tuhh.de>
 
 	* macros/openhbci.m4: Remove old unused macros. Add macro name
Index: business-core.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/business/business-core/business-core.scm,v
retrieving revision 1.11
retrieving revision 1.12
diff -Lsrc/business/business-core/business-core.scm -Lsrc/business/business-core/business-core.scm -u -r1.11 -r1.12
--- src/business/business-core/business-core.scm
+++ src/business/business-core/business-core.scm
@@ -91,7 +91,7 @@
        (let ((e (gnc:owner-get-employee owner)))
 	 (gnc:employee-get-id e)))
       ((gnc-owner-job)
-       (gnc:owner-get-id (gnc:job-get-owner (gnc:owner-get-job owner))))
+       (gnc:owner-get-owner-id (gnc:job-get-owner (gnc:owner-get-job owner))))
       (else ""))))
 
 (define (gnc:entry-type-percent-p type-val)