- (<ucw:option :value nil (<:as-html (none-label slot))))
- (dolist (option (get-foreign-instances (presentation slot) instance))
- (setf (instance (presentation slot)) option)
- (<ucw:option :value (get-foreign-slot-value slot option (key slot)) (present (presentation slot)))))
+ (<ucw:option :value nil (<:as-html "none")))
+ (dolist (option (get-foreign-instances slot instance))
+ (<ucw:option :value (find-foreign-slot-value slot option)
+ (lol:present
+ (lol:make-presentation option
+ :type :as-string
+ :initargs
+ `(:attributes ,(attributes slot)))
+ ))))
+ (when (creatablep slot)
+ (<ucw:submit :action (create-record-on-foreign-key slot instance) :value "Add New" :style "display:inline")))