Minor fixes to issue-experts' screens.

This commit is contained in:
Simon Brooke 2018-08-17 09:52:23 +01:00
parent 039b0eef3c
commit 028022fd75
2 changed files with 3 additions and 5 deletions

View file

@ -1,7 +1,8 @@
(ns^{:doc "Render web pages using Selmer templating markup." (ns^{:doc "Render web pages using Selmer templating markup."
:author "Simon Brooke"} :author "Simon Brooke"}
youyesyet.layout youyesyet.layout
(:require [adl-support.tags :as tags] (:require [adl-support.filters :refer :all]
[adl-support.tags :as tags]
[clojure.string :refer [lower-case]] [clojure.string :refer [lower-case]]
[clojure.tools.logging :as log] [clojure.tools.logging :as log]
[markdown.core :refer [md-to-html-string]] [markdown.core :refer [md-to-html-string]]

View file

@ -50,10 +50,7 @@
(defn followup-request-page [request] (defn followup-request-page [request]
(let (let
[params (support/massage-params [params (support/massage-params request)
(keywordize-keys (:params request))
(keywordize-keys (:form-params request))
#{:id})
id (:id (keywordize-keys params)) id (:id (keywordize-keys params))
record (db/get-followuprequest db/*db* {:id id}) record (db/get-followuprequest db/*db* {:id id})
elector (if elector (if