r10359: 18 Mar 2005 Kevin Rosenberg <kevin@rosenberg.net>

        * sql/oodml.lisp: Add missing database argument [Patch from
        Alan Caulkins]

diff --git a/ChangeLog b/ChangeLog
index b4ac72d5330c99eff04f2733099a9e91530ceb32..d8f10b3c6f2a614ec30061c6ba2d04e9300697cc 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+18 Mar 2005 Kevin Rosenberg <kevin@rosenberg.net>
+       * sql/oodml.lisp: Add missing database argument [Patch from
+       Alan Caulkins]
+       
 03 Mar 2005 Kevin Rosenberg <kevin@rosenberg.net>
        * sql/oodml.lisp: Improve database priority in 
        update-records-from-instance [Patch from Walter C. Pelissero]

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 4644bf1c1589fdb351bb5ea1833f688d68c7daa1..e2a487e2412c773a1d7db76f9e4a41d2639a946e 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -261,8 +261,9 @@
          (sels (generate-selection-list view-class))
          (res (apply #'select (append (mapcar #'cdr sels)
                                       (list :from  view-table
-                                            :where view-qual)
-                                     (list :result-types nil)))))
+                                            :where view-qual
+                                           :result-types nil
+                                           :database vd)))))
     (when res
       (get-slot-values-from-view instance (mapcar #'car sels) (car res)))))