mewa fixes

darcs-hash:20050909113235-5417e-24ddd0f23b79f9e17867a197aa76d1b06f47c707.gz

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index be0176b..045b7c1 100644 (file)
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -8,7 +8,8 @@
     string    mewa-string
     number    mewa-currency
     integer   mewa-integer
-    currency  mewa-currency))
+    currency  mewa-currency
+    generalized-boolean mewa-boolean))
 
 ;;; an alist of model-class-name . attributes
 ;;; should really be a hash-table.

diff --git a/src/mewa/slot-presentations.lisp b/src/mewa/slot-presentations.lisp
index bbbc1a9..ef86dec 100644 (file)
--- a/src/mewa/slot-presentations.lisp
+++ b/src/mewa/slot-presentations.lisp
@@ -91,7 +91,7 @@ When T, only the default value for primary keys and the joins are updated.")
   (let ((date (presentation-slot-value slot instance))
        (input-id (string (gensym))))
     (if (and date (not (editablep slot)))
-       (<:span (<:as-html date)))
+       (<:as-html date))
     (when (editablep slot)
       (<ucw:input :accessor (presentation-slot-value slot instance) :id input-id)
       (<:script :type "text/javascript"