From: Drew Crampsie <drewc@tech.coop>
Date: Fri, 9 Sep 2005 11:32:35 +0000 (-0700)
Subject: mewa fixes
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/d2dbe50f3600d000fb2fe294579f21a00dde99e8?hp=21d89532588b45e939e3b10170f8dd8f6fd1ecf2

mewa fixes

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

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index be0176b..045b7c1 100644
--- 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
--- 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"