     [(or keyfn (first (list-property-keys entity-class-key)))
      (or comp  compare)]))
 
-(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 property-schema
   [entity-class-key property-key]
   (let [entity-class-schema (entity-class-schema entity-class-key)]
     (or (get-in entity-class-schema [:columns                   property-key])
         (get-in entity-class-schema [:many-to-one-relationships property-key])
         (get-in entity-class-schema [:one-to-many-relationships property-key]))))
-
-(defn placeholder
-  [entity-class-key property-key]
-  (get-in (entity-class-schema entity-class-key) [:placeholders property-key]))
 
 (defn property-type
   [entity-class-key property-key]

                                   (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 database entity-key view-fn]
  (let [entity-class-schema (entity-class-schema entity-class-key)
        database            (->> (reduce (fn [database property-key]
                                           (if (some #{property-key} (inputtable-property-keys entity-class-key))
                                             (let [many-to-one? (= (property-type entity-class-key property-key) :many-to-one)
                                                   column-key   (cond-> property-key
                                                                  many-to-one? (many-to-one-relationship-key-to-physical-column-key))
                                                   param-key    (cond-> (param-key entity-class-key property-key)
                                                                  many-to-one? (#(keyword (format "%s-key" (name %)))))
                                                   errors       (not-empty (get-in *request* [:entity-param-errors param-key]))]
                                               (cond-> database
                                                 (not errors) (assoc-in [entity-class-key entity-key column-key] (get-in *request* [:entity-params param-key]))))
                                             database))
                                         database
                                         (input-property-keys entity-class-key)))]
    (if (not-empty (get-in *request* [:entity-param-errors]))
