(defn handle-admin
  "Shows the admin page"
  [request]
  (let [params             (:params request)]
    (if (contains? (get-permissions request) "change-app-values")
      (do
        (if (contains? params "make-admin-changes")
          (controller/change-app-options params))
        ;(println request)
        (-> request
          :remote-addr
          controller/find-logged-in-user
          view/render-admin
          res/response))
      (not-allowed request))))