   (if (= nil (form-validator @data-set))
     (let [onres (fn[data]
                   (secretary/dispatch! "/"))]
+      (when (and (not (nil? (:senddate @data-set)))
+                 (nil? (:receiveddate @data-set))) (swap! data-set assoc :racknumber ""))
       (http-put (str serverhost "mutations/" (:id @data-set))
                 onres (.serialize (Serializer.) (clj->js (map-mutation-data @data-set))))))
   (reset! focus "on"))

       [:div.col-sm-8.col-md-offset-5 
        [button-tool-bar
         [button {:bs-style "default" :on-click form-cancel } "Cancel"]
         [button {:bs-style "info" :on-click save-function} "Save"]]]
       ;;[:span (str @data-set)]
       ]]]]])



(defn mutation-update-template [id dmt]
  (do
    (if (and (not= nil (.-senddate dmt)) (not= nil (.-receiveddate dmt)))
      (let [update-data (r/atom {:id (int id)
                                 :mutationnumber (.-mutationnumber (.-numbers dmt))
                                 :nameofthefirstparty (.-nameofthefirstparty dmt)
                                 :nameofthesecondparty (.-nameofthesecondparty dmt)
