Separated models, controllers and routers

Floorplan/Controller.fs

@@ -0,0 +1,127 @@
+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