112 lines
3.8 KiB
Forth
112 lines
3.8 KiB
Forth
module PageController
|
|
|
|
open System
|
|
open DredgePos.Types
|
|
open FSharp.Data
|
|
open Microsoft.AspNetCore.Http
|
|
open Floorplan
|
|
open Giraffe
|
|
open DredgeFramework
|
|
|
|
let loadHomePage(): HttpHandler =
|
|
let variables = map ["title", "Log In"]
|
|
let scripts = ["dredgepos.authenticate.js"]
|
|
let styles = ["dredgepos.authenticate.css"]
|
|
|
|
Theme.loadTemplateWithVarsScriptsAndStyles "authenticate" variables scripts styles
|
|
|> htmlString
|
|
|
|
let loadFloorplan (ctx: HttpContext) : HttpHandler =
|
|
Session.RequireClerkAuthentication ctx
|
|
|
|
let roomMenu =
|
|
Entity.GetAllInVenue<floorplan_room>
|
|
|> Array.map makeRoomButton
|
|
|> joinWithNewLine
|
|
|
|
let variables = map [
|
|
"title", "Floorplan"
|
|
"roomMenu", roomMenu
|
|
"decorator", Decorations.generateDecorator()
|
|
]
|
|
let styles = ["dredgepos.floorplan.css"]
|
|
let scripts = ["../external/konva.min.js" ; "dredgepos.floorplan.js"]
|
|
let currentClerk = recordToMap <| Session.getCurrentClerk ctx
|
|
|
|
let arrays = map ["clerk", currentClerk]
|
|
|
|
htmlString <| Theme.loadTemplateWithVarsArraysScriptsAndStyles "floorplan" variables arrays scripts styles
|
|
|
|
let loadOrderScreen (ctx: HttpContext) (tableNumber: int) : HttpHandler =
|
|
Session.RequireClerkAuthentication ctx
|
|
|
|
let covers = if tableNumber > 0 then (getTable tableNumber).default_covers else 0
|
|
let coverString = language.getAndReplace "covers" [covers]
|
|
|
|
let changeCoverNumberButton = if tableNumber > 0 then Theme.loadTemplateWithVars "orderScreen/change_cover_number_button" (map ["covers", coverString]) else ""
|
|
|
|
let orderNumber =
|
|
if tableNumber > 0 then language.getAndReplace "active_table" [tableNumber]
|
|
else language.get "new_order"
|
|
|
|
let containerAttributes =
|
|
if tableNumber > 0 then
|
|
map ["data-table", jsonEncode (getTable tableNumber)]
|
|
|> Theme.htmlAttributes
|
|
else ""
|
|
|
|
let categoryList =
|
|
Entity.GetAllInVenue<order_screen_page_group>
|
|
|> Array.filter (fun page_group -> page_group.id <> 0)
|
|
|> Array.sortBy (fun {order=order} -> order)
|
|
|> Array.map (fun category ->
|
|
let categoryMap = recordToMap category
|
|
let categoryArray = map ["page", categoryMap]
|
|
Theme.loadTemplateWithArrays "orderScreen/page_group_button" categoryArray
|
|
)
|
|
|> joinWithNewLine
|
|
|
|
let grids =
|
|
OrderScreen.getAllPageGrids ()
|
|
|> Array.map OrderScreen.getPagesHTML
|
|
|> joinWithNewLine
|
|
|
|
let coverSelectorButtons =
|
|
Array.init (covers+1) id
|
|
|> Array.map(fun coverNumber ->
|
|
let text = if coverNumber > 0 then language.getAndReplace "selected_cover" [coverNumber]
|
|
else language.get "cover_zero"
|
|
Theme.PosButton text "coverSelectorButton" $"""data-cover="{coverNumber}" """)
|
|
|> String.concat "\n"
|
|
|
|
let variables = map [
|
|
"title", "Order"
|
|
"containerAttributes", containerAttributes
|
|
"categoryList", categoryList
|
|
"pageGroups", grids
|
|
"orderNumber", orderNumber
|
|
"changeCoverNumberButton", changeCoverNumberButton
|
|
"covers", coverString
|
|
"salesCategoryOverrideButtons", OrderScreen.generateSalesCategoryOverrideButtons ()
|
|
"coverSelectorButtons", coverSelectorButtons
|
|
]
|
|
|
|
let styles = ["dredgepos.orderScreen.css"]
|
|
let scripts = ["dredgepos.tables.js";"../external/currency.min.js";"dredgepos.orderScreen.js"; ]
|
|
let currentClerk = recordToMap <| Session.getCurrentClerk ctx
|
|
let arrays = map ["clerk", currentClerk]
|
|
|
|
Theme.loadTemplateWithVarsArraysScriptsAndStyles "orderScreen" variables arrays scripts styles
|
|
|> htmlString
|
|
|
|
let getOpenTables() =
|
|
let rows = openTables()
|
|
rows |> jsonEncode
|
|
|
|
let mergeTables parent child =
|
|
mergeTables parent child |> ignore
|
|
"done"
|
|
|
|
let unmergeTables table =
|
|
unmergeTable table |> ignore
|
|
"done" |