   [_ _ 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

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

(defn- date-time-condition-control


(defn new-controller
  [entity-key uri-parameters]
  (layout (string/capitalize (dog-mission/translate :new-view-title (dog-mission/translate entity-key)))
          (list [:p "new"]
                (form-to
                 [:post (<< "/~(name entity-key)")]
                 (hidden-field :index-params (get-in *request* [:params :index-params]))
                 (submit-button "create"))
                (link-to-with-method-and-params {:class "btn btn-default"} (<< "/~(name entity-key)") :get (base64-decode (get-in *request* [:params :index-params])) (string/capitalize (dog-mission/translate :back))))))

(defn create-controller
  [entity-key uri-parameters]
  (layout (string/capitalize (dog-mission/translate :create-view-title (dog-mission/translate entity-key)))
          (list [:p "create"]
                (link-to-with-method-and-params {:class "btn btn-default"} (<< "/~(name entity-key)") :get (base64-decode (get-in *request* [:params :index-params])) (string/capitalize (dog-mission/translate :back))))))

(defn edit-controller
  [entity-key uri-parameters]
  (layout (string/capitalize (dog-mission/translate :edit-view-title (dog-mission/translate entity-key)))
          (list [:p "edit"]
                (form-to
                 [:patch  (<< "/~(name entity-key)/~(:key uri-parameters)")]
                 (hidden-field :index-params (get-in *request* [:params :index-params]))
                 (submit-button "update"))
                (link-to-with-method-and-params {:class "btn btn-default"} (<< "/~(name entity-key)") :get (base64-decode (get-in *request* [:params :index-params])) (string/capitalize (dog-mission/translate :back))))))

(defn update-controller
  [entity-key uri-parameters]
  (layout (string/capitalize (dog-mission/translate :update-view-title (dog-mission/translate entity-key)))
          (list [:p "update"]
                (link-to-with-method-and-params {:class "btn btn-default"} (<< "/~(name entity-key)") :get (base64-decode (get-in *request* [:params :index-params])) (string/capitalize (dog-mission/translate :back))))))

(defn destroy-controller
  [entity-key uri-parameters]
  (layout (string/capitalize (dog-mission/translate :destroy-view-title (dog-mission/translate entity-key)))
          (list [:p "destroy"]
                (link-to-with-method-and-params {:class "btn btn-default"} (<< "/~(name entity-key)") :get (base64-decode (get-in *request* [:params :index-params])) (string/capitalize (dog-mission/translate :back))))))

;; Rouring.

