     (let [body          (-> request :body)
           [username _]  (sec/get-username-password request querier)
           user-id       (-> (items querier :user {:username username}) first :id)
-          project       (-> request decode-body)]
+          project       (-> request decode-body stringify-values)]
       {:project-id (upsert! commander :project (assoc project :user-id user-id))}))
 
   :handle-created

    (let [body          (-> request :body)
          [username _]  (sec/get-username-password request querier)
          user-id       (-> (items querier :user {:username username}) first :id)
          programme     (-> request decode-body)]
      {:programme-id (upsert! commander :programme (assoc programme :user-id user-id))}))

  :handle-created

  :post!
  (fn [{request :request}]
    (let [body          (-> request :body)
          entity        (-> request decode-body stringify-values)
          project-id    (-> entity :project-id)
          property-code (-> entity :property-code)
          [username _]  (sec/get-username-password request querier)
