(defun www-edit-display-object-desc (genre uri-object uri-feature-name
&optional lang format)
- (www-display-object-desc genre uri-object lang 1 nil
+ (www-display-object-desc genre uri-object nil lang 1 nil
uri-feature-name format))
;; (defun www-edit-display-object-desc (genre uri-object uri-feature-name
(or (www-feature-value-format feature-name)
'default))
uri-feature-name)))
+ (if (eq property-name 'value-presentation-format)
+ (www-edit-display-feature-input-box
+ feature-name property-name
+ 'default ; 'wiki-text
+ (or (www-feature-value-format feature-name)
+ 'default))
+ (www-html-display-paragraph
+ (format "value-presentation-format : %s [[[edit|edit.cgi?feature=%s&property=value-presentation-format]]]"
+ (www-xml-format-list
+ (or (www-feature-value-format feature-name)
+ 'default))
+ uri-feature-name)))
(if (eq property-name 'format)
(www-edit-display-feature-input-box
feature-name property-name