From d2dbe50f3600d000fb2fe294579f21a00dde99e8 Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Fri, 9 Sep 2005 04:32:35 -0700
Subject: [PATCH] mewa fixes

darcs-hash:20050909113235-5417e-24ddd0f23b79f9e17867a197aa76d1b06f47c707.gz
---
 src/mewa/mewa.lisp               | 3 ++-
 src/mewa/slot-presentations.lisp | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

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" 
-- 
2.20.1