- (<:li (<ucw:button :action (add-to-many-to-many slot instance)
- (<:as-html "Add New")))
- (<:li (<ucw:button :action (add-to-many-to-many slot instance new-instance)
- (<:as-html "Add:"))
- (<ucw:select :accessor new-instance
- (arnesi:dolist* (i (find-all-instances slot instance))
- (<ucw:option
- :value i
- (lol:present-view (i (select-view slot) slot))))))
+ (when (can-add-new-p slot)
+ (<:li
+ (<ucw:submit :action (add-to-many-to-many slot instance)
+
+ :value "Add New")))
+ (when (can-add-existing-p slot )
+ (<:li (<ucw:submit :action (add-to-many-to-many slot instance new-instance)
+ :value "Add:")
+ (<ucw:select :accessor new-instance
+ (arnesi:dolist* (i (find-all-instances slot instance))
+ (<ucw:option
+ :value i
+ (lol:present-view (i (select-view slot) slot)))))))