X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/91b9f259d38073a9847ede172cdda1218f2c35fb..88670beca060fc94190b30d4dc6ccb38dbe2fbcd:/src/attributes/numbers.lisp

diff --git a/src/attributes/numbers.lisp b/src/attributes/numbers.lisp
index 520e621..45d8aaa 100644
--- a/src/attributes/numbers.lisp
+++ b/src/attributes/numbers.lisp
@@ -45,11 +45,20 @@
   (:type-name currency))
 
 
-(defdisplay :in-layer editor
+(defdisplay
+  :in-layer t
    ((currency currency-attribute) object)
-    (<:as-html "$")
+
+   (<:as-html (format nil "$~$" (or (attribute-value object currency) ""))))
+
+(defdisplay
+  :in-layer editor
+  ((currency currency-attribute) object)
+    (LET ((value (attribute-value (object currency) currency)))
     (<:input
-     :type "text"
-     :id (id currency)
-     :name (callback currency)
-     :value (format nil "~$" (or (attribute-value object currency) ""))))
+     :NAME
+     (callback currency)
+     :VALUE (escape-as-html (strcat (display-value currency value)))
+     :TYPE
+     "text"))
+  )