   [& args]
   (apply radial-mount/property-message-key args))
 
-(declare entity-class-keys input-property-keys parse-property-param)
+(declare entity-class-keys inputtable-property-keys parse-property-param)
 
 (defn wrap-entity-params
   [handler]

   [method uri]
   (hidden-field :index-params (get-in *request* [:params :index-params]))
   (error-message-control entity-class-key (get-in *request* [:entity-param-errors]) radial-mount-errors)
   (map #(input-control entity-class-key entity % (get radial-mount-errors %)) (property-keys entity-class-key))
   [:p
    (submit-button {:class "btn btn-primary"} (string/capitalize (dog-mission/translate submit-button-caption)))
    "&nbsp;"

                                   (cond-> request
                                     (.startsWith (name param-key) (name (sweet-crossplane.core/param-key entity-class-key property-key))) (#(or (assoc-entity-param % param-key entity-class-key property-key) %))))
                                 request
                                 (combinatorics/cartesian-product (inputtable-property-keys entity-class-key) (keys (:params request)))))
                       request
                       (entity-class-keys))))))

