list-slot-types fix for tables missing :db-kind :base

darcs-hash:20050711102210-5417e-8b6eea49520d1ec4e244d7c7fbdefd72d6298d75.gz

diff --git a/src/meta-model.lisp b/src/meta-model.lisp
index aabd2ff..4416423 100644 (file)
--- a/src/meta-model.lisp
+++ b/src/meta-model.lisp
@@ -102,7 +102,7 @@ most of the below functions expect this method to exist"
              (list-item-helper
               type view
               :ret-fun #'rfun)))
              (list-item-helper
               type view
               :ret-fun #'rfun)))

-    (append (lister :key) (lister :base))))
+    (append (lister :key) (lister :base) (lister nil))))

                         
 (defmethod slot-type ((view t) slot)
   "returns the CLSQL type of SLOT"
                         
 (defmethod slot-type ((view t) slot)
   "returns the CLSQL type of SLOT"

diff --git a/src/mewa/presentations.lisp b/src/mewa/presentations.lisp
index 7e58ce2..230ead5 100644 (file)
--- a/src/mewa/presentations.lisp
+++ b/src/mewa/presentations.lisp
@@ -134,6 +134,7 @@
   (setf (ucw::instances (ucw::list-presentation self)) (valid-instances self))
   (setf (display-results-p self) t))
 
   (setf (ucw::instances (ucw::list-presentation self)) (valid-instances self))
   (setf (display-results-p self) t))
 

+

 (defmethod render-on ((res response) (self mewa-presentation-search))
   ;(<:as-html (search-query self))
   (ucw::render-criteria res self)
 (defmethod render-on ((res response) (self mewa-presentation-search))
   ;(<:as-html (search-query self))
   (ucw::render-criteria res self)