   [_ _ param-value]
   param-value)
 
-(defmulti ^:private format-property-param
+(defmulti format-property-param
   (fn [entity-key property-key param-value] (property-type entity-key property-key)))
 
 (defmethod format-property-param :date

     [:button.btn.btn-primary {:type "submit", :name :command, :value "search"}
      (string/capitalize (dog-mission/translate :search))])]])

(defn- list-entities-panel
  [entity-key entities page-count page entity-command-fn command-fn]
  (if entities
    (list [:table.table.table-condensed.table-hover

     (drop-down
      {:class "form-control"}
      param-key
      (map (partial format-property-param entity-key property-key) [nil true false])
      (format-property-param entity-key property-key (get-in *request* [:entity-params param-key])))]))

(defn- date-time-condition-control
