simon/youyesyet
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Progress...

Browse source
This commit is contained in:
simon 2017-07-15 19:36:37 +01:00
parent be324e9d06
commit 2ce44cc0b8
6 changed files with 61 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/clj/youyesyet/routes/home.clj
View file

@ -34,9 +34,11 @@
(defn app-page []
(layout/render "app.html"))
(defn about-page []
(layout/render "about.html"))
(defn call-me-page [request]
(if
request
@ -57,8 +59,10 @@
roles (if user (db-core/get-roles-by-canvasser db-core/*db* {:canvasser (:id user)}))]
(cond
roles (layout/render "roles.html"
{:title (str "Welcome " (:fullname user))
{:title (str "Welcome " (:fullname user) ", what do you want to do?")
:user user
:roles roles})
(empty? roles)(response/found "/app")
true (assoc (response/found "/login") :session (dissoc session :user))
)))