      [:div.col-md-12
       [:div.form-group
        [:input {:type "button" :value "Add"
-                :class "btn btn-primary" :on-click revenue-add}] 
+                :class "btn btn-primary" :on-click revenue-add}]
        ;; [:input {:id "getall" :type "button" :value "Refresh"
        ;;          :class "btn btn-primary" :on-click get-all-click}]
        ]

(defn o4register-add-template []
  (let [add-data (r/atom {:isactive true})
        focus (r/atom nil)]
    (fn [] [o4register-template 
              "o4register Add Form" 
               add-data
               focus
               #(o4register-add-form-onclick add-data focus)])))

(defn o4register-update-template [id dmt]
  (let [update-data (r/atom {:id (int id)

        focus (r/atom nil)]
    (fn [] [o4register-template
           "o4register Update Form"
           update-data
           focus
           #(o4register-update-form-onclick update-data focus)])))

