           [:span.caret]]
          [:ul.dropdown-menu
           {:role "menu"}
-          (map (fn [entity-key]
-                 [:li (link-to (<< "/~(name entity-key)") (string/capitalize (dog-mission/translate entity-key)))])
-               (entity-keys))]]]]]]
+          (map (fn [entity-class-key]
+                 [:li (link-to (<< "/~(name entity-class-key)") (string/capitalize (dog-mission/translate entity-class-key)))])
+               (entity-class-keys))]]]]]]
     [:article
      [:div.container-fluid
       contents]]

       (text-field param-key-2 errors-2)))))

(defmethod condition-control :date
  [entity-key property-key]
  (date-timestamp-condition-control entity-key property-key))

(defmethod condition-control :timestamp
  [entity-key property-key]
  (date-timestamp-condition-control entity-key property-key))

(defmethod condition-control :many-to-one
  [entity-key property-key]
  (let [param-key          (param-key entity-key property-key)
        param-key-key      (keyword (format "%s-key"    (name param-key)))
        param-key-name-key (keyword (format "%s-name--" (name param-key-key)))]
    [:div.form-group
     (label param-key-key (string/capitalize (dog-mission/translate param-key)))
     (hidden-field param-key-key (get-in *request* [:entity-params param-key-key]))
     [:div.input-group
      (text-field {:class "form-control", :readonly "readonly"} param-key-name-key (format-property-param entity-key property-key (get-in *request* [:entity-params param-key-name-key])))
      [:span.input-group-addon {:data-open-window-uri (to-uri (<< "/~(name (:table-key (property-schema entity-key property-key)))/select?target-element-id=~(URLEncoder/encode (name param-key-key))"))}
       [:span.glyphicon.glyphicon-search]]]]))

(defmethod condition-control :default
  [entity-key property-key]
  nil)

(defn pagination-control

              [:div.form-group
               (if errors
                 {:class "has-error has-feedback"})
               [:div.input-group.date {:data-type (:type (property-schema entity-class-key property-key))}
                (hiccup.form/text-field
                 {:class "form-control"}
                 param-key
                 (if errors
                   (get-in *request* [:params param-key])
                   (format-property-param entity-class-key property-key (get-in *request* [:entity-params param-key]))))
                [:span.input-group-addon
                 [:span.glyphicon.glyphicon-calendar]]]])]
      (list
