(defmethod render-criteria ((res response) (s mewa-presentation-search))
(setf (criteria-input s) "")
(<:ul
- (dolist (c (criteria s))
+ (dolist (c (ucw::criteria s))
(<:li (render-on res c)
(let ((c c))
(<ucw:input :action (ucw::drop-criteria s c) :type "submit" :value "eliminate"))))
integer
currency)
-
(defslot-presentation clsql-wall-time-slot-presentation (mewa-relation-slot-presentation)
()
(:type-name clsql-sys:wall-time))
ifFormat : \"%m/%d/%Y\",
});" input-id))))))
-
-
(defslot-presentation mewa-relation-slot-presentation (mewa-slot-presentation slot-presentation)
((foreign-instance :accessor foreign-instance)
(linkedp :accessor linkedp :initarg :linkedp :initform t)
(present (presentation slot)))
(<:as-html "--"))))
-(defslot-presentation inline-slot-presentation (mewa-relation-slot-presentation)
- ()
- (:type-name inline))
-(defmethod present-slot ((slot inline-slot-presentation) instance)
- (<:fieldset
- (<:legend (<:as-html (label slot)))
- (<ucw:render-component :component (mewa:make-presentation (meta-model::explode-foreign-key instance (slot-name slot)) :type :editor))))
-(defmethod mewa::present-slot-as-row ((self mewa::mewa-object-presentation) (slot inline-slot-presentation))
- (<:td :colspan 2
- (present-slot slot (instance self))))
\ No newline at end of file
+
+
+
+