X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Foodml.lisp;h=a5b080f01f15f1007c5be49b0513df84b113dbf9;hb=90896f2e0ea06af22bda925c71a7470cc1dda263;hp=ed7aae16889770fe71018684d9f66efa6a53cecd;hpb=e71ada356f23f76d406be7d7f9ecc9dd9891109f;p=clsql.git

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index ed7aae1..a5b080f 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -248,7 +248,7 @@
     (if vd
 	(let ((qualifier (key-qualifier-for-instance instance :database vd)))
 	  (delete-records :from vt :where qualifier :database vd)
-	  (setf (records-caches vd) nil)
+	  (setf (record-caches vd) nil)
 	  (setf (slot-value instance 'view-database) nil)
           (values))
 	(signal-no-database-error vd))))
@@ -668,7 +668,8 @@
 		   (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