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

add latlng to /add_plant form by clicking map

Browse source
This commit is contained in:
Swrup 2021-12-14 23:47:26 +01:00
parent c3b5a9c194
commit be2f1b31e3
4 changed files with 36 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/permap.ml
View file

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