Fixed the 'duplicate canvassers role' issue...

And the cause wasn't at all what I thought.
This commit is contained in:
Simon Brooke 2018-10-04 10:59:11 +01:00
parent 918a8205e9
commit e411eb38b2
2 changed files with 9 additions and 8 deletions

View file

@ -79,7 +79,7 @@ AND visits.id = :id
-- :name list-roles-by-canvasser :? :*
-- :doc links all existing canvasser records related to a given role
SELECT roles.*
SELECT DISTINCT roles.*
FROM roles, ln_canvassers_roles
WHERE roles.id = ln_canvassers_roles.role_id
AND ln_canvassers_roles.canvasser_id = :id

View file

@ -24,13 +24,14 @@
user
(db-core/list-roles-by-canvasser db-core/*db* {:id (:id user)}))]
(log/info (str "Roles routing page; user is " user "; roles are " roles))
(cond
roles (layout/render "roles.html"
(if
roles
(layout/render
"roles.html"
{:title (str "Welcome " (:fullname user) ", what do you want to do?")
:user user
:roles (map #(assoc % :link (safe-name (:name %) :sql)) roles)})
(empty? roles)(response/found "/app")
true (assoc (response/found "/login") :session (dissoc session :user)))))
(assoc (response/found "/login") :session (dissoc session :user)))))
(defn admins-page