From 2f98eda90939d43f05b9b060b23ae3acf721e580 Mon Sep 17 00:00:00 2001
From: Nathan Bird <nathan@acceleration.net>
Date: Thu, 15 Jan 2009 11:19:09 -0500
Subject: [PATCH] If updating an instance from the database and we found the
 row in the database then set the view-database slot. This indicates that this
 instance now reflects an object in that DB.

---
 sql/oodml.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 30f6b0d..3e7ec9a 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -235,6 +235,7 @@
 					    :result-types nil
 					    :database database)))))
     (when res
+      (setf (slot-value instance 'view-database) database)
       (get-slot-values-from-view instance (mapcar #'car sels) (car res)))))
 
 (defmethod update-slot-from-record ((instance standard-db-object)
-- 
2.34.1