                      :serialnumber [[v/required :message "Field is required Must be number"]]
                      :subdivisionname [[v/required :message "Field is required"]]
                      :tehsil [[v/required :message "Field is required"]]
-                     :year [[v/required :message "Field is required"]]
+                     :year [[v/required :message "Field is required"]
+                            [year-after? :message "Year must greater than 1900"]
+                            [year-before? :message "Year must less than 9999"]]
                      :racknumber [[v/required :message "Field is required"]]
                      :description [[v/required :message "Field is required"]])))
 

  (secretary/dispatch! "/revenue/add"))


(defn render-revenue [revenues]
  [:div
   [:div {:class "box"}
    [:div {:class "box-header"}
     [:h3 "List of Revenue Records"]]
    [:div.row
     [:div.col-md-12
      [:div.form-group
       [:input {:type "button" :value "Add"
                :class "btn btn-primary" :on-click revenue-add}]]
      [:div {:class "box-body"}

       [:table {:class "table table-bordered table-striped dataTable" :border "2" :width "100px" :style {:table-layout "fixed"}}
        [:thead
         [:tr
          (when (is-admin-or-super-admin)[:th " "])

    (http-get-auth (str serverhost "villages") onres)))

(defn render-misc [miscs]
  [:div.col-md-12
   [:div {:class "box"}
    [:div {:class "box-header"}
     [:h3.box-title "List of Misc Records"]]
    [:div.box-body
     (when (is-admin-or-super-admin)
       [:div.form-group
        [:input {:type "button" :value "Add"
                 :class "btn btn-primary" :on-click misc-add}]])
      [:div.table-responsive
       [:table {:class "table table-bordered table-striped dataTable"}
        [:thead
         [:tr
