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

Create and Update now satisfactory for most records

Browse source 
Date and Time fields are not yet handled correctly.
This commit is contained in:
Simon Brooke 2018-08-06 12:01:54 +01:00
parent f274d3be65
commit 7be2225917
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/adl/to_selmer_routes.clj
View file

@ -85,7 +85,8 @@
(symbol "db/*db*") (symbol "db/*db*")
'params) 'params)
:message warning :message warning
:error-return {:warnings [warning]})))) :error-return {:warnings [warning]})
'params)))
(defn compose-get-menu-options (defn compose-get-menu-options
@ -357,14 +358,18 @@
'merge 'merge
'params 'params
'result)) 'result))
(list 'case (:status 'result) (list 'case (list :status 'result)
200 {:message "Record stored"} 200 {:message "Record stored"}
201 (list 'try 201 (list 'try
(list 'merge (list 'hash-map
(list 'read-string (list :body 'result))) :params
(list 'merge 'params
(list :body 'result))
:message
(list 'str "Record created")(list :body 'result))
(list (list
'catch 'Exception 'x 'catch 'Exception 'x
{:message (list 'str "Record created: " (list :body 'result)) {:message "Record created"
:error "Exception while reading returned key"})) :error "Exception while reading returned key"}))
{:error (list :body 'result)})))))) {:error (list :body 'result)}))))))