HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixes, enhancements, and more update-to-latest-ucw stuff. minor, all of it.
[clinton/lisp-on-lines.git]
/
src
/
static-presentations.lisp
diff --git
a/src/static-presentations.lisp
b/src/static-presentations.lisp
index
bb5cf0d
..
5958f3b
100644
(file)
--- a/
src/static-presentations.lisp
+++ b/
src/static-presentations.lisp
@@
-579,7
+579,7
@@
This method is also used by relation-slot-presentations for the same reason."))
;;;; Currency (double precision reals)
(defslot-presentation currency-slot-presentation (real-slot-presentation)
;;;; Currency (double precision reals)
(defslot-presentation currency-slot-presentation (real-slot-presentation)
- ()
+ (
(as-money-p :accessor as-money-p :initarg :as-money-p :initform nil)
)
(:type-name currency))
(defmethod (setf presentation-slot-value) ((value string) (c currency-slot-presentation) instance)
(:type-name currency))
(defmethod (setf presentation-slot-value) ((value string) (c currency-slot-presentation) instance)
@@
-593,7
+593,10
@@
This method is also used by relation-slot-presentations for the same reason."))
(if (editablep currency)
(<ucw:input :type "text" :size 10
:accessor (presentation-slot-value currency instance))
(if (editablep currency)
(<ucw:input :type "text" :size 10
:accessor (presentation-slot-value currency instance))
- (<:as-html (presentation-slot-value currency instance))))
+ (<:as-html (format nil (if (as-money-p currency)
+ "$~$"
+ "~D")
+ (presentation-slot-value currency instance)) )))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; dates and times
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; dates and times