r15640 - gnucash/trunk/src/business/business-core - gnc:job-get-owner is gncJobGetOwner now. Fixes #410407.

[Andreas Köhler]

Author: andi5
Date: 2007-02-21 13:46:44 -0500 (Wed, 21 Feb 2007)
New Revision: 15640
Trac: http://svn.gnucash.org/trac/changeset/15640

Modified:
   gnucash/trunk/src/business/business-core/business-core.scm
Log:
gnc:job-get-owner is gncJobGetOwner now.  Fixes #410407.


Modified: gnucash/trunk/src/business/business-core/business-core.scm
===================================================================
--- gnucash/trunk/src/business/business-core/business-core.scm	2007-02-21 06:59:50 UTC (rev 15639)
+++ gnucash/trunk/src/business/business-core/business-core.scm	2007-02-21 18:46:44 UTC (rev 15640)
@@ -16,7 +16,7 @@
        (let ((e (gncOwnerGetEmployee owner)))
 	 (gncEmployeeGetAddr e)))
       ((eqv? type GNC-OWNER-JOB)
-       (gnc:owner-get-address (gnc:job-get-owner
+       (gnc:owner-get-address (gncJobGetOwner
 			       (gncOwnerGetJob owner))))
       (else '()))))
 
@@ -38,7 +38,7 @@
   (let ((type (gncOwnerGetType owner)))
     (cond
       ((eqv? type GNC-OWNER-JOB)
-       (gnc:owner-get-name-dep (gnc:job-get-owner
+       (gnc:owner-get-name-dep (gncJobGetOwner
 				(gncOwnerGetJob owner))))
       (else (just-name (gncOwnerGetName owner))))))