                       ;;(js/console.log (.-_2 (getdata json)))
                       (reset-login-page)
                       (secretary/dispatch! "/"))))]
-      (http-post (str serverhost "login")
-                 onresp (.serialize (Serializer.) (clj->js @data-set ))))
+      (http-post (str serverhost "login") onresp (.serialize (Serializer.) (clj->js @data-set ))))
     (reset! focus "on")))
 
 (defn submit-button [data-set focus]
-  [:div.form-group
-   [:div.col-md-6
-    [button-tool-bar
-     [button {:bs-style "primary" :on-click #(submit-login data-set focus)} "Submit" ]]]])
+  [:div.row
+   [:div.col-md-4
+    [:button {:class "btn btn-primary btn-block btn-flat" :on-click #(submit-login data-set focus)} "Sign In" ]]])
 
 (defn login []
   (let [my-data (r/atom  {})
         focus (r/atom nil)]
     (fn []
-      [:div.container
-       [:div.panel.panel-primary.modal-dialog
-        [:div.panel-heading
-         [:h2 "Log-in"]]
-        [:div.panel-body
-         [login-input-element :username "Email"  "input-group-addon glyphicon glyphicon-user" "email" my-data "Email" focus]
-         [login-input-element :password "Password"  "input-group-addon glyphicon glyphicon-lock" "password" my-data "password" focus]
+      [:div.hold-transition.login-page {:style {:width "100%" :height "100%"}}
+       [:div.login-box
+        [:div.login-logo
+         [:b "Log-in"]]
+        [:div.login-box-body
+         [:p.login-box-msg "Sign in to start your session"]
+         [login-input :username "glyphicon glyphicon-envelope form-control-feedback" "email" my-data "Email" focus]
+         [login-input :password "glyphicon glyphicon-lock form-control-feedback" "password" my-data "password" focus]
          [submit-button my-data focus ]]]])))
+
 
 ;; ====================================================================================================
 ;; end of login-form

    [:div.box-header
     [:h3.box-title "List of Mutations"]]
    [:div {:class "box-body table-responsive"}
     [:table {:class "table table-bordered table-striped"
              :style {:width: "100%"}}
      [:thead
       [:tr ;; {:style {:background-color "#f2d284"}}
        (when (is-admin-or-super-admin) [:th ""])
        (when (is-admin-or-super-admin) [:th ""])
        [:th "Mutation Number"]

;; --------------------------------------------------------------------------
;; mutation form

(defn form-validator [data-set]
  (first (b/validate data-set
                     :mutationnumber [[v/required :message "Field is required"]]
