[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.

Tags:
----
gnucash-1-8-branch

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.1461.2.415
retrieving revision 1.1461.2.416
diff -LChangeLog -LChangeLog -u -r1.1461.2.415 -r1.1461.2.416
--- 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-10  David Hampton  <hampton at employees.org>
 
 	* src/engine/iso-4217-currencies.scm: Add the new Romanian Leu.
Index: business-core.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/business/business-core/business-core.scm,v
retrieving revision 1.8.2.3
retrieving revision 1.8.2.4
diff -Lsrc/business/business-core/business-core.scm -Lsrc/business/business-core/business-core.scm -u -r1.8.2.3 -r1.8.2.4
--- 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)