128 lines
4.0 KiB
Forth
128 lines
4.0 KiB
Forth
module DredgePos.Floorplan.Controller
|
|
|
|
open DredgeFramework
|
|
open DredgePos
|
|
open DredgePos.Types
|
|
open Giraffe
|
|
open Microsoft.AspNetCore.Http
|
|
open Model
|
|
|
|
let makeRoomButton (room: floorplan_room) =
|
|
let vars = map [
|
|
"roomId", room.id |> string
|
|
"roomName", room.room_name
|
|
]
|
|
|
|
Theme.loadTemplateWithVars "roomButton" vars
|
|
|
|
let getActiveTables venue = Model.getActiveTables venue |> ajaxSuccess |> json
|
|
|
|
let mergeTables (tables: floorplan_table[]) =
|
|
let status =
|
|
if mergeTables tables[0].table_number tables[1].table_number then
|
|
let outputTables = map [
|
|
"parent", tables[0];
|
|
"child", tables[1];
|
|
"merged", Model.getTable tables[0].table_number;
|
|
]
|
|
ajaxSuccess outputTables
|
|
else ajaxFail "Could Not Merge Tables"
|
|
status |> json
|
|
|
|
let unmergeTable tableNumber =
|
|
let unmerged = unmergeTable tableNumber
|
|
let unmergedTables =
|
|
match unmerged with
|
|
| Some (parent, child) ->
|
|
map ["parent", parent; "child", child] |> ajaxSuccess
|
|
| None -> ajaxFail "Could not Unmerge Table"
|
|
|
|
unmergedTables |> json
|
|
|
|
|
|
let getFloorplanData (id: int) =
|
|
let tableList = Entity.GetAllInVenue<floorplan_table>
|
|
let reservationList = getReservationList tableList
|
|
{|
|
|
tables = tableList
|
|
decorations = Entity.GetAllInVenue<floorplan_decoration>
|
|
activeTableNumbers = Model.getActiveTables (getCurrentVenue())
|
|
rooms = Entity.GetAllInVenue<floorplan_room>
|
|
reservations = reservationList
|
|
|}
|
|
|> ajaxSuccess
|
|
|> json
|
|
|
|
let transformTable (table: floorplan_table) =
|
|
Entity.Update table
|
|
|> ajaxSuccess
|
|
|> json
|
|
|
|
let createTable (tableData: floorplan_table) =
|
|
if tableExists tableData.table_number = "False" then
|
|
ajaxSuccess (addNewTable tableData)
|
|
else ajaxFail (tableExists tableData.table_number)
|
|
|> json
|
|
|
|
let deleteTable (table: floorplan_table) =
|
|
Entity.DeleteById<floorplan_table> table.id
|
|
|> ignore
|
|
table |> ajaxSuccess |> json
|
|
|
|
let transferTable (origin, destination) =
|
|
Model.transferTable origin destination
|
|
let data = map ["origin", getTable origin ; "destination", getTable destination]
|
|
ajaxSuccess data |> json
|
|
|
|
let AddDecoration (data: floorplan_decoration) =
|
|
let image = "wwwroot/images/decorations/" + data.decoration_image
|
|
let width, height = image |> GetImageSize
|
|
let aspectRatio = decimal width / decimal height
|
|
|
|
let decoration : floorplan_decoration = {
|
|
id = 0
|
|
decoration_height = (200m / aspectRatio) |> int
|
|
decoration_width = 200
|
|
decoration_rotation = 0
|
|
decoration_image = data.decoration_image
|
|
decoration_pos_x = data.decoration_pos_x
|
|
decoration_pos_y = data.decoration_pos_y
|
|
decoration_room = data.decoration_room
|
|
venue_id = data.venue_id
|
|
}
|
|
|
|
Entity.Create decoration
|
|
|> ajaxSuccess
|
|
|> json
|
|
|
|
let UpdateDecoration (data: floorplan_decoration) =
|
|
Entity.Update data
|
|
|> ignore
|
|
ajaxSuccess "true" |> json
|
|
|
|
let DeleteDecoration (decorationToDelete: floorplan_decoration) =
|
|
Entity.DeleteById<floorplan_decoration> decorationToDelete.id
|
|
|> ajaxSuccess
|
|
|> json
|
|
|
|
let loadFloorplan (ctx: HttpContext) : HttpHandler =
|
|
Authenticate.Model.RequireClerkAuthentication ctx
|
|
|
|
let roomMenu =
|
|
Entity.GetAllInVenue<floorplan_room>
|
|
|> Array.map makeRoomButton
|
|
|> joinWithNewLine
|
|
|
|
let variables = map [
|
|
"title", "Floorplan"
|
|
"roomMenu", roomMenu
|
|
"decorator", Entities.Floorplan_Decorations.Controller.generateDecorator()
|
|
]
|
|
let styles = ["dredgepos.floorplan.css"]
|
|
let scripts = ["../external/konva.min.js" ; "dredgepos.floorplan.js"]
|
|
let currentClerk = recordToMap <| Authenticate.Model.getCurrentClerk ctx
|
|
|
|
let arrays = map ["clerk", currentClerk]
|
|
|
|
htmlString <| Theme.loadTemplateWithVarsArraysScriptsAndStyles "floorplan" variables arrays scripts styles
|