    [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))
+   (map #(input-control entity-class-key entity % (get radial-mount-errors %)) (input-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 (input-property-keys entity-class-key) (keys (:params request)))))
                       request
                       (entity-class-keys))))))


  ([entity-class-key]
   (property-keys entity-class-key :columns :many-to-one-relationships :one-to-many-relationships)))

(defn inputtable-property-keys
  [entity-class-key]
  (property-keys entity-class-key :columns :many-to-one-relationships))

(defn representative-property-key
  [entity-class-key]
  (or (:representative (entity-class-schema entity-class-key))
      (some #{:name} (property-keys entity-class-key))
      (first (property-keys entity-class-key))))

(defn placeholder
  [entity-class-key property-key]
  (get-in (entity-class-schema entity-class-key) [:placeholders property-key]))

(defn search-condition-property-keys
  [entity-class-key]
  (or (get-in (entity-class-schema entity-class-key) [:search-condition :properties])
      (inputtable-property-keys entity-class-key)))

(defn list-property-keys
  [entity-class-key]
  (or (get-in (entity-class-schema entity-class-key) [:list :properties])
      (property-keys entity-class-key)))

(defn input-property-keys
  [entity-class-key]
  (or (get-in (entity-class-schema entity-class-key) [:input :properties])
      (property-keys entity-class-key)))

(defn sort-keyfn-and-comp
