swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add click event on map

Browse source
This commit is contained in:
Swrup 2021-12-09 07:27:44 +01:00
parent 1cbc32b9b6
commit d0fc9c064d
4 changed files with 72 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/permap.ml
View file

@ -154,17 +154,22 @@ let add_plant_post request =
| None -> render_unsafe "Not logged in" request
| Some nick -> (
match%lwt Dream.multipart request with
| `Ok [ ("files", files); ("tags", tags) ]
| `Ok (("files", files) :: ("tags", tags) :: _ :: _) -> (
| `Ok [ ("files", files); ("lat_lng", lat_lng); ("tags", tags) ]
| `Ok (("files", files) :: ("lat_lng", lat_lng) :: ("tags", tags) :: _ :: _)
-> (
match tags with
| [] -> render_unsafe "Field tag is empty" request
| [ (_, tags) ] ->
let res =
match User.add_plant tags files nick with
| Ok () -> "Your plant was uploaded!"
| Error e -> e
in
render_unsafe res request
| [ (_, tags) ] -> (
match lat_lng with
| [] -> render_unsafe "Field tag is empty" request
| [ (_, lat_lng) ] ->
let res =
match User.add_plant lat_lng tags files nick with
| Ok () -> "Your plant was uploaded!"
| Error e -> e
in
render_unsafe res request
| _lat_lng -> Dream.empty `Bad_Request )
| _tags -> Dream.empty `Bad_Request )
| `Ok _ -> Dream.empty `Bad_Request
| `Expired _