r10324: 08 Feb 2005 Kevin Rosenberg <kevin@rosenberg.net>
authorKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 10 Feb 2005 12:54:34 +0000 (12:54 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Thu, 10 Feb 2005 12:54:34 +0000 (12:54 +0000)
        * sql/oodml.lisp: Use explicit database in fault-join-target-slot
        [Patch from Walter Pelissero]

ChangeLog
sql/oodml.lisp
tests/test-oodml.lisp

index 70ea1dc..0de5645 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+08 Feb 2005 Kevin Rosenberg <kevin@rosenberg.net>
+       * sql/oodml.lisp: Use explicit database in fault-join-target-slot
+       [Patch from Walter Pelissero]
+       
 29 Jan 2005 Kevin Rosenberg <kevin@rosenberg.net>
        * db-postgresql/postgresql-loader.lisp: Add additional
        directories to Fink on darwin [patch from Cyrus Harmon].
index b1a5d6a..a5b080f 100644 (file)
                   (list instance jcc)))
             (select (sql-expression :attribute (gethash :foreign-key tdbi) :table jc-view-table)
                     :from (sql-expression :table jc-view-table)
-                    :where jq)))))))
+                    :where jq
+                    :database (view-database object))))))))
 
 
 ;;; Remote Joins
index 4add4ad..0457499 100644 (file)
                 (every #'(lambda (dea) (typep (slot-value dea 'address) 'address)) dea-list)
                 (mapcar #'(lambda (dea) (slot-value (slot-value dea 'address) 'addressid)) dea-list))))
          t t t t (1 1 2 2 2))
-       
+
        (deftest :oodml/uoj/2
            (progn
              (clsql:update-objects-joins (list company1))